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ABSTRACT 



Finance has been the prime motivation in many recent 
espionage cases. This thesis expanded the prototype 
Manpower Financial Tracking Expert System (MFTES) that 
analyzes individual financial profiles in order to detect 
the potential of an employee to engage in espionage 
activities. The architecture of MFTES has modules that 
capture Control Strategy, Taxonomy of Concepts, Expert 
Rules, and Numerical Processing. During evaluation, it 
successfully followed the documentary trail for 75 
employee credit reports and made inferences about their 
potential risks. 



THESIS DISCLAIMER 



The reader is cautioned that computer programs 
developed in this research may not have been exercised for 
all cases of interest. While every effort has been made, 
within the time available, to ensure that the programs are 
free of computational and logic errors, they cannot be 
considered validated. Any application of these programs 
without additional verification is at the risk of the user. 
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I . I NTRODUCTION 



The use of espionage by hostile forces to gain access 
to classified information is a clear threat to our 
government. The effect of espionage is not always readily 
apparent but there can be significant and irreparable 
damage to our national security. The motives for 
espionage are many. Whether it is committed for money, 
personal gain or for political reasons, the prevention of 
espionage has become a high priority of our security 
forces. In most cases, including those of convicted spies 
FBI agent Richard Miller, the National Security Agency’s 
Ronald W. Pelton, and the Navy’s John Walker, financial 
gain has been the prime motivation. CRef. 11 

Enormous resources are required to detect and prevent 
espionage. The money spent and manpower employed to 
identify, locate and then apprehend a spy can only be 
justified when compared to the loss of information vital to 
our national security. Miller, Pelton and Walker, and 
other similar cases, created clearly identifiable 
documentary trails. Rosa concluded that if there had been 
a computer system automa t i ca 1 1 y tracking individuals’ 



income and spending. 



it could have 



alerted the authorities 



in time to limit, if not prevent, the resulting damages 
CRef. S3. 

Currently the Defense Investigative Service (DIS) 
obtains paper credit reports on subjects undergoing 
background investigations for positions requiring top 
secret clearance. These documents are reviewed for 
derogatory information revealing financial 
i r r espons i b i 1 i ty , which may be cause for denial or 
revocation of clearance eligibility by the cognizant 
adjudicating authority. Linder current procedures all 
credit reports, both those with varying degrees of 
negative information and those that are ’clean’, are 
produced in paper format and individually reviewed by DIS 
personnel. It will become increasingly important for DoD 
to automate this process as much as possible since 
stabilized or even decreasing human resources are now 
anticipated. CRef. 3] 

At the same time the role of finances in so many recent 
espionage cases has led to calls for increased use of 
credit checks, even to the point of including them as part 
ot investigations for secret level clearances. A 1985 
report to the Secretary of Defense by the commission to 
review DoD security policies and practices recommended 
expansion of the investigative scope for a SECRET clearance 
to include a credit check of the subject CRef. 9, p. 93. 



E 



Clearly desirable is a streamlined process in which the 
generation of paper is kept to a minimum and human 
resources are devoted only to those cases with derogatory 
indications CRef. 33. 

The purpose of this thesis has been to more fully 
develop the prototype MANPOWER FINANCIAL TRACKING EXPERT 
SYSTEM (MFTES). MFTES analyzes individual financial 
profiles in order to detect the potential of an employee 
involving himself in espionage activities. The prototype 
was developed by Sivasankaran and Bui CRef. II of the Naval 
Postgraduate School ( NPS ) , Monterey, California. The 
prototype was sponsored by the Defense Personnel Security 
and Research Center (PERSEREC) as part of its effort to 
improve the DoD personnel security program through 
increasing the use of automated data and techniques. 

The thesis is organized as follows: Chapter II provides 
background on the evolution of expert systems, on the MFTES 
prototype and its expanded development. The MFTES 
implementation is discussed in Chapter III, followed by a 
discussion of the evaluation tests, the expanded system’s 
hardware and software requirements and the conclusions and 
i ecommendat ions in Chapter IV. Appendix A is a listing of 
the MFTES source code and Appendix B is a listing of the 
1 Od account conditions (remarks) used in the TRW credit 
rating system. 
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I I . BACKG ROUND 



A. HISTORY OF EXPERT SYSTEMS 

“An expert system is a method for handling real-world, 
complex problems requiring an expert’s i nterpretat i on and 
which solves these problems using a computer model of 
expert human reasoning. It reaches the same conclusions 
that a human expert would reach if faced with a similar 
problem." [Ref. 5D The heuristics and rules that make up a 
human expert’s knowledge are transferred into the rule-base 
and inference engine of the expert system. The facts 
within the rule base can be represented in many ways but 
are usually in the form of an IF... THEN relationship. The 
inference engine contains the strategies by which the 
expert system orders the rules, facts and goals to reach a 
cone 1 us ion. 

Expert systems have been in use for over 15 years and 
have roots to the pre-World War II period with the 
development of Formal logic and Cognitive psychology. 
Since that beginning, expert systems have been used in 
many different types of commercial applications. Two 
early, successful systems developed at Stanford University 
were DENDRAL and MYCIN. DENDRAL, conceived in the 1960’s, 



is a chemistry expert system designed 



to examine 



spectroscopic analysis of an unknown molecule and predict 
the molecular structures that could account for that 
particular analysis. MYCIN, developed in the mid-1970’s 
was designed to aid physicians in the diagnosis and 
treatment of meningitis and bacteremia infections. CRef. 
6, p. 151 Commercial applications in the 1980’s cover many 
different fields including decision making, software 
maintenance management, software design and development 
aids, ocean surveillance, knowledge-based tutors, 
information management and weather forecasting. 
Applications in the military are just as widespread. Some 
of the more recent efforts include RICA: an expert system 
Tor radar image c 1 ass i f i c a t i on , ACES: an airborne 
communications expert system, and TARSIA: a system that 
helps track underwater contacts. [Refs. 7 and 83 

Practical applications for expert systems abound. 
Whenever human experts are in great demand and short 
supply, a computer based consultant can help amplify and 
disseminate the needed expertise. An expert system can 
capture the practical experiential knowledge that is hard 
to pin down. CRef. 93 

Credit institutions have always used heuristic 
procedures in their analysis of individual financial 
profiles in order to assign good or bad risk ratings. 
Although such analysis is not considered exact, enough 
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advances in the field have been made to make it practical 
to articulate the heuristics in the examination and 
interpretation of financial data. Many of these heuristics 
appear structurable enough to be captured by the current 
expert system technology. [Ref. 13 

One industry, financial services, is emerging as the 
next significant user of expert systems. One financial 

services leader in expert systems implementation is New 
York-based American Express Co. 

The company began its involvement with its current AI 
expert system approximately 2 1/2 years ago. It uses 
a customized expert system called the Authorizer ’s 
Assistant ( AA ) , which was designed to help the authorizer 
filter through credit data. American Express has noted 
three primary benefits derived from the AA system. First, 
productivity and time savings. The company expects 20*/. 
time reduction in credit review and has observed a 96.5*/. 
accuracy rate to date. Second, losses associated with bad 
credit risks have been reduced by the improved screening 
process. Third, improved customer service benefits are 

expected because the higher percentage of quicker approvals 
will most likely increase customer sat i sf ac t i on . [Ref. 103 
Another expert system user, Equitable Financial Cos., 
has produced a demonstrat i on model that evaluates the 

underwriting risk of someone who might have a history of 

6 



alcohol abuse . 



Using information obtained from employers, 



doctors and so on, the system helps identify high-risk 
individuals by reading between the lines. The R&D model is 
generic enough that, with different rules, it can be 
applied to other underwriting problems. CRef. 103 

B. SCOPE 

One of the responsibilities of PERSEREC is to 
investigate the feasibility of using existing financial 
data bases to monitor the financial health and behavior of 
individuals holding security clearances. 

CRef. 11, p. 33 Information containing credit histories 
has already been implemented and distributed nation wide 
through large database systems such as the ones managed by 
I RW LRef. 13. "While one of about half a dozen credit 
report vendors currently used by DIS, TRW was selected for 
this study because of its national coverage and existing 
GSA contract " CRef. 33. 

TRW uses 102 credit remarks which can be attributed to 
an individual’s credit standing. All were used in the 
Mb 1 tb expansion and are included in Appendix B. Examples 
of some of the major remarks that are reported by credit 



bureaus are listed in Table I. 



TABLE I 



Report 

A bbrev i at ion 



TRW CREDIT REMARKS USED IN MFTES 



Abbrev i at ion 
INQUIRY 


Exd 1 anat ion 

A copy of the credit profile has been 
sent to this credit grantor at their 
request . 


BK LIQ REO 


Debt included in or discharged through 

Bankruptcy Chapter 7 or 11. 


BK 7 BILE 


Voluntary or involuntary Petition in 
Bankruptcy; Chapter 7- ( Liquidat ion ) 

f i led . 


BK 7 DISC 


Voluntary or involuntary Petition in 
Bankruptcy; Chapter 7- ( L iqu idat ion ) 

d i scharged . 


CO TAX LN 


County Tax Lien. 


PD COLL AC 


Paid account/was a collection account 

insurance claim or education claim. 


PD WAS 180 


Paid account/was delinquent 180 days. 


FORECLOSURE 


Credit grantor sold collateral to settle 
defaulted mortgage. 


REPO 


Merchandise was taken back by credit 

grantor; there may be a balance due. 


CHARGE OFF 


Unpaid balance reported as a loss by 
credit grantor. 


JUDGMENT 


Judgment . 


COLL ACCT 


Account seriously past due/account 
assigned to attorney collection agency or 
credit grantor’s internal collection 
department . 


DELINQ 180 


Account delinquent 180 days. 


DELINQ 120 


Account delinquent 120 days. 


DELINQ hO 


Account delinquent 60 days. 


30 DAY DEL 


Account past due 30 days. 



a 



PHULGG was chosen as the programming language because 
it is a language currently used in a wide spectrum of 
expert system applications. [Ref. 12] Additionally, PROLOG 
is integrated within the Arity/Expert Development Package, 
a commercially produced collection of development tools 
which provide the basis for constructing an expert system 
[Ref. 12] The Arity/Expert Development Package was chosen 
as a shell for MFTES because of its ability to handle 
medium to large size expert systems, its control mechanism 
for controlling the way in which information is ordered or 
accessed, and its facility for presenting explanations to 
the reasons behind decisions. "Arity is one of the leading 
companies in the Prolog world with a strong reputation for 
reliability and support . . .and the package has a proven 
record of commercial success" [Ref. 13]. 

Initial consideration was given to developing the 
expanded MFTES on the NPS mainframe computer because an 
interface to TRW Credit System reports, also generated on a 
mainframe, could then be more easily achieved. However 
this proved infeasible because the Arity/Expert 
Development Package is not configured to function in a 
mainframe environment. A local alternative was IBM’s own 
expert system development application, known as Expert 
System Environment ( ESE ) , which was produced specifically 
for the mainframe environment. The ESE package was 
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temporarily on loan to the Naval Postgraduate School for a 
six month trial period. ESE was considered as a candidate 
for the MFTES expansion but its potential loss after six 
months and the lack of local technical support suggested 
the more prudent -decision was to continue using the 
Arity/Expert Development Package. This also meant the 
development effort could continue from the point where the 
MFTES prototype left off rather than having to duplicate 
code already produced. 

Another reason for the choice of a microcomputer 
conf igurat ion was the eventual environment in which MFTES 
would be used. MFTES was intended for use by government 
security officers or employees responsible for reviewing 
personnel credit backgrounds) and because they could be 
expected to operate in a variety of different locations 
(buildings, ships, etc.), the hardware conf igurat ion was 
expected to portable, readily available and easy to use. 
The personal computer (PC) appeared perfectly suited for 
those conditions. 

The only funding used was for record typing services 
which converted 75 actual TRW records to a format usable by 
MFTES, and for financial consultant services that helped 
define the heuristics applied by MFTES. 
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III. IMPLEMENTATION 



A. KNOWLEDGE REPRESENTATION OF THE FINANCIAL PROFILE 

MFTES represents financial analysis expertise through 
concepts captured by frames. Concepts are defined by their 
qualities and the possible values or properties of those 
qualities. For instance, the concept Superpayer may have 
properties such as monthly payments, that range up to 
■£3 0,000, and the number of active creditors, which goes up 
to ICO. Figure 3.1 shows how the knowledge and 
relationships of different concepts are represented in the 
system . 

Loncept relationships are represented using the notion 
ot a role. For example, the concept PERSEREC is related to 
the concepts CUST0MER_PR0F I LE , SUPERPAYER and BANKRUPT 
through the roles CUST0MER_PR0F I LE_ I NFO , SUPERPAYER_ INFO 
and BANKRUPT _ I NFO . The concept PERSEREC holds information 
on -the profile of the customer, the possibility of his 
being a Superpayer and his potential for bankruptcy. 
Concepts may be connected through a series of intermediary 
co ncep ts . 

Since the connections are captured through the use of 
roles, a 'role-chain 3 then strings the various concepts in 
a hierarchical fashion. The lowest level concept at 

1 1 



the end of the chain is represented in terms of its 
properties or values. 

It is also possible for a lowest level concept to have 
more than one specific value. For instance, the concept 
CONCLUSION can be represented with one of the following 
values: TOO MANY ACCTS, SUPERPAYER, NORMAL, SATISFACTORY, 
POOR, VERY POOR, SERIOUS, CRITICAL, VERY CRITICAL, and 
POTENTIAL BANKRUPT. CRef. 1, pp . 14-181 



IS 



PERSONAL 



CUS TOMER _PRQF I LE_ I NFO 



CUSTOMER_PROF I LE -J 



SUPERPAYER INFO 



SUPERPAYER 



BANKRUPT INFO 



BANKRUPT 



CONCLUSION INFO 



CUSTOMER PROFILE 



PERSONAL_ I NFO 



PERSONAL 



TRW_ I NFO 



SUPERPAYER 



INCOME INFO 



EXPENSE INFO 



01 



ACT I VE_CRED I TORS 



SSN 




DATE OF 


BIRTH 


SEX 




MARITAL 


STATUS 


ZIP 




MONTHLY 


INCOME 


TRW 


CURRENT 


_ACC 



DEL I NQ_ACC 
COLLECT ACC 



CONCLUSION 


1 




BANKRUPT 










FILE 







DISCHARGE 

DISMISS 



QNCLUS I ON 



TOO_MANY_ACCTS 

SUPERPAYER 

POTENT I AL_BANKRUPT 



Figure 3.1 MFTES concept relationships 
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B. ARCHITECTURE OF MFTES AND EXAMPLE CASES 



The functional architecture of MFTES is illustrated 
below in Figure 3.S. The expert system has five modules. 



CONTROL STRATEGY 



CONCEPTS REPRESENTATION 



TRW 

DATABASE 












RULES 






USER 



COMPUTATION 



EXPLANATION 



Figure 3.2 Architecture of MFTES 



The first module consists of the Control Strategy to be 
employed in manipulating the rules during a problem solving 
situation. The Control Strategy also determines when to 
access the static knowledge in the Concepts Representation 
module and when to access the dynamic knowledge contai ned 
in the Computation module. The system takes one individual 
credit report at a time as its input from the TRW database 
and provides its conclusion to the user. An Explanation 
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module is also available to provide details of how a 
conclusion was reached. 

A sample interaction with the system is shown in 
Figure 3.3 CRef. 1, pp . lA-lSD. It shows a NORMAL 
conclusion was reached because the weight of the current 
case was found to be EXTREMELY LOW. The determination of 
EXTREMELY LOW was made because the case's OVERALL 
CALCULATED WEIGHT was found to be 10 which was less than 
the CUT OFF VALUE of AO. The OVERALL CALCULATED WEIGHT was 
determined to be 10 because the PRIVATE RECORD of the case 
contained that value. A closer examination of the PRIVATE 
RECORD showed that there was some MISCELLANEOUS ITEM which 
was assigning the 10 points. Deeper interaction with the 
system would determine precisely what credit remark 
contained in this record was causing the value of 10 to 
appear . 
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The person is : 



1 ) norma 1 / 1.0 

C How was the conclusion of the current case -2 
judged to be normal (1.000) ? 3 

Since C13 the above weight of the current case on 
a range-2 is extremely low (1.0) 
then the conclusion of the current case 
-2 is normal (1.0) 



L How 
range 
Since 



L How 
case -2 



previous 
exp lain 
conti nue 

was above weight of the above case on a 
-2 judged to be extremely low (1.000) ? 3 

C13 the overall calculated weight of the 
current case -2 is 10 (1.0) and 
C23 the extremely low cut off value of the 
range 0-200 that we use-1 is 40 (1.0) 
and 10 =< 40 

then the above weight of the current 

case on a range-2 is extremely low (1.0) 
was overall calculated weight of the current 
judged to be 10 (1.000) ? 3 



Since L 1 3 the public record val of the current 
case -2 is 0 (1.0) and 
C23 the private record value of the current 
case -2 is 10 (1.0) 

and 10 = 0 + 10 

then the overall calculated weight of the 
current case -2 is 10 (1.0) 

L How was private record value of the current case 
-2 judged to be 10 (1.000) ? 3 

Since C13 the calculated weights for all current 
and paid accounts of the current case 
-2 is 0 (1.0) and 

L23 the calculated weights for all 

delinquent accounts of the current case 
-2 is 0 (1.0) and 

L33 the calculated weights for all 

miscellaneous private items of the 
current case -2 is 10 (1.0) and 
10 = 0 + 0 + 10 

then the private record value of the 
current case -2 is 10 (1.0) 



Figure 3.3 Sample interaction with MFTES 
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RULE FORMULATION AND STRUCTURE 



C . 

The problem-solving heuristics involved in the 
financial analysis are captured in the form of rules. 
Rules help the expert system manipulate the concepts, their 
properties and values so a conclusion about the individual 
credit report can be developed. Rules were represented 
using conseguents and antecedents. A consequent consists 
of a single goal, whereas the antecedent can be made up of 
one or more goals. A goal indicates a property of a 
concept has some particular value. CRef. 1, pp . 14-183 

In MFTES a simple weighting scheme was interleaved with 
many of the rules to add up a preset number of points for 
each negative remark occurring in the credit record. The 
idea is similar to the scheme employed in traffic 
violations. An overall conclusion is based on total points 
scored on the credit record . CRef. 1, pp . 14-183 

Rules were written following the same structure shown 
in I RW ’ s Glossary of National Status Comments CRef. 143. 
Ihis explanatory aid for deciphering the coded report 
abbreviations, divides the 102 credit remarks used by TRW 
tor its reports into two broad categories, Items of Private 
Record and Items of Public Record. Figure 3.4 shows the 
MF I tS rule base structure further subdividing the Private 
and Public Records into smaller sets containing similar 
r emar ks . 
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The Public Record is made up of a two sets, one 
addressing bankruptcy and liens and another dealing with 
related miscellaneous items. Remarks grouped within the 
bankruptcy set included bankruptcy adjustment plans, 
bankruptcy chapters 7, 11 or 13, mechanic’s liens and 
federal or city tax liens. Remarks within the 
miscellaneous items set included judgments and suits. 

The Private Record is made up of three sets, one 
addressing current and paid accounts, one dealing with 
delinquent accounts and the other also dealing with 
miscellaneous items. Remarks within the current and paid 
accounts set included all paid accounts past due and 
current accounts that were collections. Remarks within the 
delinquent accounts set included delinquencies hO days or 
greater and foreclosures. Remarks within the miscellaneous 
items set included settled accounts and charge offs now 
being paid. 




l-iqure 3.4 Rule base structure for credit remarks 
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D. MFTES OPERATION 



MFTES examines a TRW report by first determining if an 
individual’s credit profile is one that indicates he is 
already bankrupt or in the process of bankruptcy. Next it 
determines if potential bankruptcy is indicated or if a 
superpayer condition exists. 

Anyone who is bankrupt or going through the bankruptcy 
process is considered a high risk. The loss of financial 
well being combined with access to classified information 
makes any such individual vulnerable to compromise. The 
sale of classified information for money, in order to 
improve financial position, is a circumstance that might be 
avoided if the bankruptcy condition is identified early 
enough . 

Ihe same reasoning applies to potential bankruptcy. 
Anyone finding himself going so deeply into debt that 
bankruptcy could become a reality is also considered a 
risk for potential espionage. 

- A superpayer is someone sitting at the opposite extreme 
from bankruptcy. His financial position appears so good 
that bankruptcy is never a guestion. A superpayer’s 
charac ter i st ics , however, should raise anyone’s eyebrows. 
His credit information might appear flawless showing timely 
payments, paid off debts and a good rating. But a 
comparison of a superpayer’s monthly expenses against his 
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expected monthly income would reveal that his expenses 
exceed his income. The rationale is that if someone is 
spending more than it appears he could afford, there is an 
external source of income which the individual is enjoying 
that needs close examination. [Ref. 1, p. 83 The 
superpayer is also considered a high risk. 

If any of the bankruptcy, potential bankruptcy or 
superpayer conditions are not initially identified the 
MFTES then evaluates the individual’s credit record for 
his overall financial position. A weighting scheme 
assigns point values (weights) to each of the different 
credit remarks found in the credit report. These weights 
are used to indicate the individual’s financial position on 
a predefined scale that ranges from Normal to Very 
Critical . 

E. CHARACTERISTICS OF FINANCIAL PROFILE ANALYSIS 

The objective of financial profile analysis was to 
ascertain what financial remarks were present in a credit 
report and then, based on the number and combination of 
those remarks, make inferences about the individual’s 
overall financial position. [Ref. 1, p. 63 The financial 
profile analysis was oriented towards discovering two kinds 
at signals, whether an individual was stretching beyond his 
tinancial means and was a candidate for bankruptcy, or 
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whether the individual was spending a disproportional 
amount of his income. [Ref. 1, p. 63 

It should be noted that TRW credit records are stored 
on maqnetic tape and these had to be translated into a 
format usable for MFTES in a microcomputer environment. 
Applicable portions of each TRW credit record examined were 
extracted and reformatted into a format easily utilized by 
the MFTES. Figure 3.5 shows the employee and data headings 
of an actual case (The SSN has been altered) in that 
format . 



EMPLOYEE ( SSN, GSLEVEL , GSSTEP , MARITAL STATUS, ZIP CODE) 

TYPE DATE DATE TYPE AMOUNT 

DAT A ( , RMRK , RPRTD , OPEN , ACCT , , AMT , BAL , PAST DUE , _ ) 

emp 1 oyee ( ’ 000-00-0000 ’,9, , married,’ 93943 ’ ) . 

d a ta (_, cur r_acct, 1085,682, i ,985,3845,954,0,0) . 
data(_,curr_acct, 1 1 85 , 380 , r , _ , 780 , 400 , 25 , 0 ) . 
data ( _ , ’ 30_day_de 1 ’ ,985, 1 179,r ,_, 1759, 1682, 157,1). 
data(_,curr_acct,985, 1 283 , r , 685 , 584 , 584 , 54 , 1 ) . 
da ta ( ,curr_acct,585, 1 1 76 , r , 485 , 286 1 , 0 , 0 , 0 ) . 
da ta ( ,curr_acct, 885 , 1 1 84 , r , 585 , 700 , 807 ,15,0). 



Figure 3.5 MFTES case format 



Some financial information, such as an employee’s grade 
and step data, is not contained on the TRW credit 
report and was added to the new format for use in 
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determining monthly income 



This specific type of 



salary information is available from a personnel record 



or database. 

F. ANALYSIS FOR BANKRUPTCY 

The first step was to determine if the individual 
had already been reported bankrupt. Bankrupt accounts 
would be indicated by comments starting with ’ BK ’ . If 
an individual was found to be bankrupt then 
administrative action is left to the discretion of the 
investigating organization. Other less drastic but 
still serious situations? such as a bankruptcy petition 
filed or dismissed might also be indicated. In either 
case such an occurrence might warrant further 
investigation of this individual. [Ref. 1? pp . 8-101 

If no bankruptcy credit remarks were identified the 
second step was to check the credit report for the 
potential of a bankruptcy occurring. This was done by 
examining all credit remarks in the report, determining 
their overall weight value and then comparing that 
value to a previously established cut off level for 
potential bankruptcy. If the overall weight value 
exceeded that cut off level then a potential for 
bankruptcy was indicated. The rationale is that any 
individual accumulating a large number of derogatory 
accounts such as delinguent or collection accounts is 



22 



p 1 ac i nq himself in the position of facing potential 
bankruptcy . 

Another indicator of potential bankruptcy is the 
number of inquiries shown in the credit report. An 
inquiry indicates an individual has approached a credit 
institution to borrow money. The rationale here is 
that if several inquiries appear in the report, this 
shows the individual was in desperate need of money and 
was trying hard to get the required credit by 
approachinq as many institutions as he could. Almost 
always this char ac ter i st i c is an indicator of an 
impendinq bankruptcy. [Ref. 1, pp . 10-123 The 
drawback to this rationale is the uncertainty of just 
how many inquiries constitute too many. For example, 
one individual might have over 30 inquiries in a given 
period if he was seeking credit for some legitimate, 
though semi-risky business venture he was considering 
trying. On the other hand another, more financially 
limited individual, desperate for cash, might have only 
approached up to eight credit institutions before he 
was able to prevail upon a credit authorizer that he 
deserved a loan. Since there was no sound heuristic 
available for determining when too many inquiries 
became a derogatory attribute, the inquiries were 
worked into the weighting scheme and calculated as part 
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of the overall weight value, 
the flow of reasoning used 
analysis . 



Figure 3.6 illustrates 
by MFTES in bankruptcy 




Figure 3.6 Flowchart for Bankruptcy Analysis 



BA 



G. 



ANALYSIS FOR SUPERPAYER 



If no potential bankruptcy was identified then the 
credit report was examined for a Superpayer condition. 
In this case an individual’s d iscret ionary monthly 
income was compared against the monthly payments shown 
in his TRW credit record. Monthly d i scret i onary income 
was derived, as shown in Figure 3.7 by computing the 
employee’s disposable income minus his expenses. 

Disposable income was determined by first 

calculating an employee’s annual income. The Annual 

Income Figure was obtained by comparing grade and step 
information to the General Schedule table which is 
completely modeled in MFTES . 

Second a determination was made if the individual 
was married or not. If he was married then the Annual 
Income Figure was increased by 60 percent. This was a 
heuristic given by the financial expert as a reasonable 
increase in income that a working spouse (future 
program refinement must make a distinction between a 
working and non— working spouse), on average, will 
pr o v i de . 
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DISCRETIONARY INCOME = DISPOSABLE INCOME - EXPENSES 

DISPOSABLE INCOME = ANNUAL INCOME FIGURE ( AIF ) 

FROM GS SCHED 

: IF MARRIED THEN AIF = AIF * 1.6 

: DETERMINE TAXES 
IF AIF < 10,000 

f HEN TAX RATE = 0*/. 

IF AIF < 30,000 

THEN TAX RATE = 15'/. 

ELSE TAX RATE = 28*/. 

NET RATE = 1 - TAX RATE 

= AIF * NET RATE 

EXPENSES = RENT + FOOD 

: RENT FROM ZIP CODE/RENT TABLE 
: FOOD = A IF * 20*/. 



MUNIHLY DISCRETIONARY INCOME = 

DIS POSABLE INCOME - EXPENSES 
12 

MONTHLY PAYMENTS = TOTAL MONTHLY BALANCES DUE * 10% 
I HEREFORE IF: 

MUNTHLY PAYMENTS > MONTHLY DISCRETIONARY INCOME 



THEN "SUPERPAYER" 



Figure 3.7 Monthly Discretionary Income 



Taxes also had to be computed. A Tax Rate, 0 
percent if the annual income was less than $10,000 or 
lb percent if the annual income was less than $30,000, 
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was applied to the Annual Income Figure. The Net Rate 
was then figured by subtracting the Tax Rate from 1. 
The individual’s disposable income was therefore 
calculated by multiplying the Annual Income Figure by 
the Net Rate. 

Expenses were figured by calculating the 
individual’s annual Rent plus his annual cost of Food. 
A more complete representat ion of expenses would take 
into account other outlays such as clothing, 
transportation, insurance, etc. but these were 
considered by the financial expert to have less impact 
in determining a Superpayer condition. 

Annual Rent was computed by referencing a table of 
postal zip codes that were cross referenced to 
qeograph ical ly established rents. In MFTES, a portion 
of this table was constructed for the Monterey — Naval 
Postgraduate School area to demonstrate its application 
in Rent computation. This information is not available 
on the TRW report and must be drawn from some other 
database (future program enhancement could have the 
expert system acquire data from multiple databases 
before analysis begins). 

Food was calculated by multiplying the Annual 
Income Figure times 20 percent. The financial 
consultant provided this heuristic for the calculation 
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of the average annual amount of money an American 
family spends on food. Monthly d i scret i onary income 
then became Disposable Income minus Expenses divided by 
IE months. 

The employee’s total monthly payment was computed 
from any Balances due that were found on the credit 
report. The Balances due for each account were summed 
toqether and then multiplied by 10*/.. This rule of 
thumb from the financial consultant asserts the 
average family’s monthly payment on a balance due will 
not generally exceed 10 percent of that balance. 

If the individual’s monthly payments shown in his 
TRW credit record exceeded his d i scret i onary monthly 
income then a superpayer condition existed. If no 
superpayer condition was determined then MFTES 
examined the individual’s credit report for an overall 
weight value. 

Another conclusion that can be made, and which 
infers a potentially detrimental situation, is the 
accumulation of too many current accounts. The 
presence of several current accounts connotes two 
possible situations. First, the individual might be 
inadvertently placing himself in the position of 
becoming overdrawn. This could happen if he suffers 
some type of financial setback and then is unable to 
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■fulfill payment obligations on his many accounts. 
Second, a large number of current accounts with low 
balances and high credit lines suggests the individual 
could use his combined total credit available to 
further extend himself into an unsound financial 
position. Thus the number of current accounts 
appearing in a credit record was worked into the 
weighting scheme and calculated as part of the overall 
weight value. 

H. ANALYSIS OF OVERALL WEIGHT VALUE 

If there was no indication of bankruptcy or 
superpayer then some other measure of an individual's 
financial position was needed. In order to fairly and 
accurately measure the effect of any possible 
combination of credit remarks appearing in an 
employee's credit record , an algorithm was needed that 
could handle the complexity of all comb i nator i a 1 
possibilities for the 102 different remarks. The 
weighting scheme for overall weight value that was used 
in the MFTES prototype, was chosen to be continued 
because of its ease of use, effectiveness and 
flexibility for future upgrade. 

Ihe overall weight value was determined by relating 
any remarks found in the report to a predefined point 
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value (weight). These points were based a financial 
expert’s best estimate. The points ranged on a scale 
from 10 to S00 . Remarks with low derogatory value, 
such as a current account, paid account, inguiry, etc. 
received the least number of points (10) for each 
occurrence. This permitted such remarks to appear in a 
credit report without significantly impacting the 
overall weight value, although any large accumulation 
of these remarks would begin to affect it. Remarks 
with higher derogatory value, such as bankruptcy, 
judgments, liens and foreclosures received the most 
points (200) for each occurrence. This ensured that 
single remarks of this more serious type, which 
significantly affect an individual’s financial 
position, had an immediate and heavy effect on the 
overall weight value. 

Each occurrence of a remark was multiplied by its 
weight and all remarks were then summed together to 
produce the overall weight value. That overall weight 
value was then compared to a scale marked with 
different cutoff 1 eve Is. The cutoff 1 eve Is, also 
provided by the financial consultant, defined different 
financial positions. • For example, Figure 3.8 (SSN has 
been altered) shows a sample case with two current 
accounts, a 120 day delinguent account and a collection 
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account . 



The weights assigned to each remark and the 



current cut off levels are also shown. The weight 
assigned for each current account is 10, for the 
delinquent account is 40, and for the collection 
account is 200. The overall weight value then is 260 
((2 curr_acc ts * 10) + (1 delinq_120 * 40) + (1 
col l_acct * 200)). A conclusion of Very Critical is 
assigned to any value that exceeds the Extremely High 
Cut Off Level of 200. If the overall weight value had 
exceeded 400 then a potential bankruptcy would have 
been indicated. This appears reasonable because it 
shows the employee, although supporting two current 
accounts, experiencing difficulty paying off other 
debts, a fact that might be significant to his future 
financial position. This also shows the emphasis 
(large weight value) given to the appearance of a 
collection account in the credit record . 
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employee( '555-55-5555' ,2, 9, single, '93943' ) . 
data(_,curr_acct, 386 , 285 , r , 186, 2000 , 1749 ,86,0) . 
da ta(_,curr_acct ,986, 485, r ,886,0,0,0,0) . 
data(_,delinq_120, 686 , 685 , r , 486 , 1 ,478,360, 1 ) . 
data(_,coll_acct ,986, _,r ,786,599,0,0,0) . 

weight_per_status(curr_acct , 10) . 
we igh t_per_s ta tus (deli nq_l 20 , 40 ) . 
weight _per_s tat us (coll _acc t , 200 ) . 

PB_CUT_OFF_VAL is 400. 
EXTREMELY_HIGH_CUT_OFF_VAL is 200. 

VERY_H I GH_CUT_QFF_VAL is 170. 

HI GH_CUT_OFF_VAL is 120. 
liODERATELY_HIGH_CUT_OFF_VAL is 100. 
L0W_CUT_0FF_VAL is 80. 

EXTREMELY_LOW_CUT_GFF_VAL is 40. 
VERY_LOW_CUT_OFF_VAL is 10. 



Figure 3.8 Sample case with weights and cutoff levels 
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IV. EVA LUATIONS, conclusions and recommendations 



A. EVALUATION RESULTS 

During the evaluation phase of the expanded MFTES 
all cases that were tested were real credit reports 
provided by PERSEREC . Each case was manually 

translated into a usable format before being run 
through the expert system. Of the 75 cases evaluated, 
six required additional data input from the operator 
before MFTES was able to arrive at a conclusion. These 
cases, it was determined, had data improperly entered 
and were corrected before being re-evaluated. In all 
cases the resulting conclusion from MFTES matched the 
pr ede term i ned judgment of the testers. This 

duplicated the results of the 24 hypothetical cases 
that were used during the project’s development. 

Additional tests were required to more thoroughly 
evaluate the MFTES conclusions against those of a human 
financial expert not previously associated with the 75 
test cases. An evaluation period with a financial 

consultant for this continued testing had been arranged 
but was not performed because of extenuating 
circufnstances. Observations made during testing were: 
- Some of the weights assigned to credit remarks were 
judged to be slightly higher than necessary and 
caused greater overall weights to show. This did 
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not appear to appreciably change any MFTES 
conclusions but a ’fine-tuning’ of the weights 
would make the system more accurate. 

- The run-times experienced during the analysis of 
each case were observed to be ranging from 3 to as 
much as 23 minutes per case. The extreme was 
caused by three factors. First, the program 
involved considerable depth and breadth in its 
search strategies. Second, the Arity expert system 
shell, which had exceeded its limits in stack space 
several times during development, was probably 
reaching its limits once again. Third, the S Mhz 
mi crocomputer , on which MFTES was installed was too 
slow . 

B. HARDWARE AND SOFTWARE REQUIREMENTS 

The MFTES was initially developed and set up to run 
on an S Mhz IBM PC, or compatible, with 6A0K RAM and a 
hard disk (minimum 10 meg recommended for secondary 
storage). This was judged inefficient however because 
of the large size of the program and the inherent time 
delays that causes. In the latter stages of 

development a 3 megabyte virtual disk was used to run 
the program. MFTES consumed approximately 2.5 megs of 
the virtual memory available and was significantly 
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Taster . For example, the conclusion in a NORMAL case 
was reached in 3 to 5 minutes, while usinq virtual 
memory, and took 30 to 30 minutes without virtual 
memory. In order to obtain more efficient run times a 
16-30 Mhz CPU is recommended. 

Ihe sottware required to work with the proqram 
(Arity Expert System) is available off the shelf. No 
special traininq requirements are considered necessary 
other than basic fami 1 iarization, dependinq on the 
user’s computer literacy. Operation of MFTES is user 
friendly and driven by the interface. 



C. SUCCESSES 

The proqram was successful in incorporatinq all 
credit remarks used by TRW and in developinq the 



necessary rules for producii 
an employee’s financial po 1 
successfully fallowed the 
employee's credit report 
his potential risk. 

F i side benefit is that 
used as a traininq aid 
analysts. The explanation 
conclusions were reached is 



iq a valid conclusion about 
iitian. In other words it 
documentary trail on an 
and made an inference about 

the proqram could also be 
for potential credit record 
facility’s display of how 
an excellent learninq tool. 
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D. 



LIMITATIONS AND FUTURE IMPROVEMENTS 



The MFTES is limited to processing a sinqle record 
at a time. This must be improved if the scrutiny ot 
thousands of personnel holdinq security clearances has 
any chance of becoming efficient. A batch processing 
program that can review large numbers of records and 
kick-' out those displaying normal attributes would be 
beneficial. Such a program could be used as a filter 
tor the expert system, greatly reducing the number ot 
reports that would be forwarded to MFTES for analysis. 
Additional rules can be added to improve the level of 
expertise provided by a financial expert. 

Multiple comp 1 imentary types of expertise can be 
added to help provider broader analysis profiles. 
Examples include usinq medical and law enforcement 
expertise to develop psychological and criminal 
profiles. The expert system could provide conclusions 
specific to the type of profile desired or to an 
overall combination of all types available. 

An interface can be developed that pipes TRW and 
DoD data directly into the expert system. This could 
be extended to cover any external database that the 
expert system required data from in order to complete 
its calculations. Examples include the qrade and step 
information for monthly pay calculation and zip codes 
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with their associated rental expenses tor rent 
calculation. This kind of improvement would eliminate 
the extra step that now occurs in translating records 
to a more usable format before analysis. 

Ihe user interface, although straightforward and 
easy to use, is plain and could be improved by adding 
color, graphics and additional explanation features. 
An on-line help facility could further enhance use. 
Implementation of voice interaction through a 
Keytronics keyboard could facilitate an analyst's use 
of the expert system’s explanation module. The analyst 
could then more naturally 'pose’ the guestions. he 
wanted answered without having to worry about exact 
keyboard entry. 

Ihe expert system can have incorporated the ability 
to monitor TRW data longitudinally for the same 
subjects. This would provide a capability for 
comparisons of individuals and performing trend 
analysis. 

Ihe overall weight value calculation algorithm 
could be revised for improved accuracy and efficiency. 
Run-time efficiency as well as stack and storage 
problems might also be improved with a newer version of 
the Arity software. 



37 



Finally* more testinq needs to be done. More real- 
world cases should be evaluated with different analysts 
for comparison. Only a thorouqh testinq of MFTt£S would 
ensure weaknesses were properly identified. Possibly a 
benchmark proqram desiqned by financial analysts who 
currently perform credit record screeninq could be 
administered . 
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APPENDIX A 



SOURCE CODE 



This appendix contains the source code for the 
expanded MFTES . This includes the front end file 
(CRD13.ARI), the calculations file ( CRD 1 3 . CAL ) , the 
rules file (CRD13.RUL), and the taxonomy file 
(CRD13.TAX). The source code was included because it 
was felt necessary to provide a hardcopy for 
documentation and maintenance) and to qive anyone who 
wanted a convenient and complete way of examining the 
program’s structure. 

It is recognized that no one will probably input 
the code from this documentation. Arrangements can be 
made to obtain a copy of the software through Prof. 
Sivasankaran or Lcdr . Salazar at the Naval Postgraduate 
Schoo 1 . 
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/* CRD13.ARI (FRONT END FILE) */ 



/* This section of code starts the record readinq 
process. Once a record has been analyzed the 
information is discarded in favor of another record of 
exit. */ 

start 

nl , repeat , 

els, 

tmo ve (5 j, 10) j 
wc ( 50 , 42 ) , 
tmove ( 15>10) , 
wc (50,42) , 
tmove ( 1 0 , 1 0 ) , 
put ( 7 ) , put ( 7 ) , 

wr ite( ’ Input file to be interpreted: ’), 

read ( Name affile) , 
asser ta ( curr ent case ( Name_of _f i le ) ) , 

[Name of file] , 

C ! run once 1 ] , 

write($Would you like another consultation ?$), 
read ( X ) , gc(full), 
abolish (data/10) ,abolish( inq/2 ) , 
abol ish ( emp loyee_ i n_p roc ess/4 ) , 
abolish (current _case/l ) , 
abo 1 ish ( bal ance_due/ 1 ) , 
abolish (total _month 1 y _expenses/ 1 ) , 
nl , X \= yes , X \= y, 
els, 

tmove (8,33) , 
wc ( 15,42) , 
tmove ( 12,33) , 
wc ( 15,42) , 
tmove (10,35), 
pu t ( 7 ) , put ( 7 ) , 
wr ite( J : Quitting'.’), 
tmove ( 20 , 0 ) . 



run once 
els, 

tmove (5,10) , 
wc (50,42) , 
tmove (15,10), 
wc ( 50 , 42 ) , 
tmove ( 10, 10) , 
wa ( 79 , 137) , 



40 



put ( 7 ) , put ( 7 ) , pu t ( 7 ) , put (7 ) , 

write! ’ WORKING! I 1 3 ) , 

tmove( 17,10) , 

/ * read ( Y ) , */ 

rpot instance ( perserec , I , N ) , 

eval (concluded, conclusion info, I , Va 1 , true , CF ) , 
fail. 

run once : - nl . 



/* CRD 1 3 . CAL (CALCULATIONS) */ 

/* Ihis section of code includes computations as layed 
out in the rules. Each module retrieves a rule- 
specified piece of data for calculation. */ 



qet ssn ( I , personal , ssn , LSSN/ 1 . 03 ) 

emp loyee(SSN,GS, SAL_STEP , M STATUS, ZIP) ,gc (ful 1 ) . 

/* This module for future use in requesting records by 
SSN 

writeC Input Social Security of Employee to be 
screened : ' ) , 
wca(9, '#,79 > , put ( 7 ) , 
read (SSN) , 

emp loyee ( SSN , GS , SAL STEP , M STATUS, ZIP) , 

asser t ( emp 1 oyee ( SSN , GS , SALSTEP , M_STATUS , Z I P ) ) . */ 



get m_status(I, personal , m_status , CM_STATUS/ 1.03):- 
emp loyee (SSN, GS , SAL_STEP , M_STATUS , ZIP) . 



pet z ip ( I , personal , z i p , CZIP/ 1 . 0 3 ) 

emp loyee ( SSN, GS , SAL_STEP , M STATUS, ZIP). 



/* The 1988 General Schedule for federal employees */ 

gs sal tab le ( 1 , 1 , 981 1 ) . 
gs_sal_table( 1 ,2, 10139) . 
gs_sal tab 1 e ( 1 , 3 , 1 0965 ) . 
gs_sa l_table( 1 ,9, 1 079 1 ) . 
gs_sal_table(l,5,11117) . 
gs_sal_table( 1 ,6, 1 1 309 ) . 
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gs_sai .tab led, 7, 11 631). 
gs _sal_table( 1,8,11955). 
gs_sai_table( 1 ,9, 1 1970 ) . 
gs_sal_tab le ( 1,10, 12275) 
gs_sal tab le ( 2 , 1 , 1 1032 ) . 
gs_sal_table(2,2, 1 1294) . 
gs_sal_table(2,3, 1 1659 ) . 
gs_sal_table(2,4, 1 1970) . 
gssaltab le ( 2 , 5 , 12103) . 
gs_sa l_tab le ( 2 , 6 , 12459 ) . 
gs_saltable(2»7, 12815) . 
qs_sal_table(2,8, 13171 ) . 
gs_sa 1 _ t ab le ( 2 , 9 , 13527 ) . 
gs_sa l_table(2, 10, 1 3883 ) 
gs_sal _tab le < 3 , 1 , 12038 ) . 
gs _sa l_table(3,2, 12439) . 
gs_sal_table(3,3, 1 2840 ) . 
gs_sal_table(3,4, 13241 ) . 
gs_sal_table(3,5, 1 3642 ) . 
gs_sal _tab le ( 3 , 6 , 14043 ) . 
gs_sal_table(3,7,l 4444 ) . 
gs_sa l_tab le ( 3 , 8 , 14845) . 
gs_sal_table<3,9, 15246) . 
qs_sal_table<3, 10,15647) 
gs_sa 1 _ tab le ( 4 , 1 , 13513) . 
gs_sal_table(4,2, 13963) . 
gs_sal_table(4,3, 1 44 13). 
gs_sal_table(4,4, 1 4863 ) . 
g5_sal_table(4,5,15313) . 
gs_sa 1 _tab le ( 4 , 6 , 15763) . 
gs_sal_table(4,7, 16213) . 
gs_sal_table(4,8, 16663) . 
gssa 1 _ tab 1 e ( 4 , 9 , 17113). 
gs_sa l_table(4, 10, 1 7563 ) 
gs_sal_table(5, 1 ,15118) . 
gs_sal_table(5,2, 15622) . 
gs_sal_table(5,3, 16126) . 
gs_sal_table(5,4, 16630 ) . 
qs_sa l_table(5,5, 171 34 ) . 
gs_sa l_table(5,6, 1 7638 ) . 
gs_sa 1 _ t ab 1 e ( 5 , 7 , 18142) . 
gs_sal_table(5,8, 1 8646 ) . 
gs_sal_table(5,9, 19150) . 
gs_sal_table(5, 10, 19654) 
gs_sal _tab le ( 6 , 1 , 16851 ) . 
gssa l_table(6,2, 17413) . 
gs_sal_table(6,3, 17975) . 
gs_sal_table(6,4, 18537) . 
gs_sa 1 _t ab 1 e ( 6 , 5 , 19099) . 



gs_sal_table<6,6, 19661 ) . 
qs_sal_table(6,7, 20223 ) . 
gs_sal_table(6,8,20785) . 
gs_sal_table<6,9,21347) . 
gs_sal_table(6, 10,21909 ) . 
gs_sal_table<7, 1 , 18726) . 
gs_sal_table(7,2, 19350) . 
gs_sal_table<7,3, 19974) . 
gs_sal_table<7,4, 20598) . 
gs_saltable(7,5,2l 222 ) . 
gs_sal_table<7,6,21846) . 
gs_sa l_table(7,7, 22470 ) . 
gs_sal_table(7,8,23094) . 
gs_sal_table(7,9, 237 18 ) . 
gs_sal_table(7, 10, 24342 ) . 
qs_sal_table(8, 1 ,20739) . 
gs_sal_table<8,2,21430) . 
gs_sal_table(8,3, 22 121 ) . 
gs_sal_table<8,4, 228 1 2 ) . 
gs_sa 1 _tab le ( 8 , 5 , 23503 ) . 
gs_sal_table(8,6,24194) . 
gs_sal_table(8,7, 24885 ) . 
gs_sal_table(8,8, 25576 ) . 
gs_sal_table(8,9, 26267 ) . 
gs_sal_table<8, 10,26958) . 
gs_sal_table(9, 1 , 22907 ) . 
gs_sal_table<9,2, 2367 1 ) . 
gs_sal_table(9,3,24435) . 
gs_sal_table<9,4,25199) . 
gs_sa 1 _tab le ( 9 , 5 , 25963 ) . 
gs_sa 1 _tab 1 e < 9 , 6 , 267727 ) . 
gs_sal_table(9,7, 2749 1 ) . 
gs_sa 1 _tab le < 9 , 8 , 28255 ) . 
gs_sal_table(9,9, 2909 1 ) . 
gs_sal_table(9, 10, 29783 ) . 
gs_sal_tab le ( 10, 1 ,25226) . 
gs_sal_tab le ( 10,2,26067) . 
gs_sal_table( 10,3,26908) . 
ga_sal _tab 1 e < 10,4,27749) . 
as_5al_table( 10,5,28590) . 
gs_sal_table( 10,6,29431 ) . 
gs_sai_table( 10,7, 30272 ) . 
gs_sal_table( 10,8,31113). 
gs_sal_table( 10,9 ,31954) . 
gs_sal_table( 10, 10, 32795 ) 
gssa 1 _tab le ( 1 1 , 1, 277 16). 
gs_sal_table( 1 1 ,2, 28640 ) . 
gs_sa 1 tab le ( 1 1 ,3,29564) . 
gs_sal_table< 1 1 ,4, 30488 ) . 



gs_sa 1 _ tab 1 e ( 11,5,31412). 
Q5_5al _tab le ( 1 1 ,6,32336) . 
gs_sal_table( 1 1 ,7,33260) . 
gs_sa l_tab le ( 1 1 , 8 , 34 184 ) . 
gs_sal_table( 11,9,35108). 
gs_sal_tab le ( 1 1 , 10,36032) 
gs_sa 1 _ tab 1 e ( 1 2 , 1 ,33218) . 
gs_sa 1 _tab 1 e ( 12,2,34325) . 
gs_sal_table( 12,3,35432) . 
gs_sa l_tab le ( 12,4,36539) . 
gs_sa 1 _ tab 1 e ( 12,5,37646) . 
gs_sal_table( 12,6,38753) . 
gs_sal_tab le ( 12,7,39860) . 
gs_sa l_table( 12,8, 40967 ) . 
gs_sal _tab le ( 12,9,42074) . 
gs_sal_table( 12,10,43181) 
gs_sal_table( 13,1 ,39501 ) . 
gs_sa 1 _t ab 1 e ( 13,2,40818) . 
gs_sal_ tablet 13,3,42135) . 
gs_sa 1 _tab le ( 13,4,43452) . 
gs_sal _tab le ( 13,5,44769) . 
gs_sal_tab le ( 13,6,46086) . 
gs_sal_table( 13,7, 47403 ) . 
gs_sa 1 _t ab 1 e ( 13,8,48720) . 
gs_sa 1 _tab 1 e ( 13,9,50037) . 
gs_sa 1 _tab le ( 13, 10,51354) 
gs_sa 1 _tab 1 e ( 14,1 ,46679) . 
gs_sa 1 _t ab 1 e ( 14,2,48235) . 
gs_sal_tab le ( 14,3,49791 ) . 
gs_sa 1 _tab le ( 14,4,51347) . 
gs_sal_table( 14,5,52903) . 
gs_sa 1 _tab le ( 14,6,54459) . 
gs_sal_tab le ( 14,7,56015) . 
gs_sal_table( 14,8,57571 ) . 
gs_sal_table( 14,9,59127) . 
gs_sal_table(14, 10,60683) 
gs_sa 1 _tab 1 e ( 15,1 ,54907) . 
gs_sal_tab le ( 15,2,56737) . 
gs_sa 1 _tab 1 e ( 15,3,58567) . 
gs_sal_table( 15,4,60397) . 
gs_sal_table( 15,5,62227) . 
gs_sal_tab le ( 15,6,64057) . 
gs sal_table( 15,7,65887) . 
gs_sa 1 _tab le ( 15,8,67717) . 
gs_sa 1 _ tab 1 e ( 15,9,69547) . 
gs_sal_table( 15, 10,71377) 
gs_sal_table( 16, 1 ,64397) . 
gs_sal_table( 16,2,66544) . 
gs_sal_table( 16,3,68691 ) . 



gs_sal_tab le ( 16,-4,70838) . 
as_sal_tab 1 e ( 16,5,78500) . 
gs_sal_table( 16,6, 73660 ) . 
gs_sal_table( 16,7,75765) . 
gs_sal_table( 16,8,77870) . 
gs_sa 1 _t ab 1 e < 16,9,79975) . 
gs_sal _tab 1 e ( 17,1 ,73958) . 
gs_sal_table< 17,8,76483) . 
gs_sal_table( 17,3,78888) . 
gs_sal_table< 17,4,81353) . 
gs_sal_table( 17,5,83818) . 
qs_sal_table< 18, 1 , 86688 ) . 



get_coll_acct_n( I ,coll_acct,coll _acc t_n , CC0LL_AC- 
CT_N/1 .03 ) : — 

findall(coll _acct ,data(_,coll _acc t, ,L) 
1 eng th < L , CDLL_ACCT_N ) ,gc<ful 1 > . 
get_d_60_n( I , d_60 , d_60_n , CD_60_N/1 .03 ) 

findall(deli nq_60 ,data(_,del inq_60 ,L> 

length ( L , D_60_N ) , gc ( ful 1 ) . 

get_d_60_a ( I , d_60 , d_60_a , CD_60_A/1 .03):- 

f i nda 1 1 ( Amount ,data(_,deli nq_60 Amount , _ , _ ) , 

A) , 

to tal _d_60_a ( A , D_60_A ) , gc ( f ul 1 ) . 
total _d_60_a ( C 3 , 0 ) : — i. 
to ta 1 _d _60_a ( C A ! L 3 ,D_60_A) 

total_d_60_a(L, Subtotal ) , 

P_60_A is Subtotal + A. 

get_d_90_n( I , d_90 , d_90_n , CD_90_N/1 .03):- 

f i nda 1 1 ( de 1 i nq_90 ,data(_,delinq_90,_,_,_,_,_,_,_,_),L) 
1 eng th ( L , D_90_N ) , gc ( f u 1 1 ) . 
get_d_90_a< I , d_90 , d_90_a , CD_90_A/ 1.03):- 

f i nda 1 1 ( Amount ,data(_,del inq_90, Amount , _ , _ ) , 
A) , 

total d 90_a ( A , D_90_ A ) , get full) . 

to ta i _d_90_a ( C 3 , 0 ) : - !. 

to ta 1 _d _90_a ( C A ! L 3 , D_90_A ) : - 

total_d_90_a(L, Subtotal ) , 

D_90_A is Subtotal + A. 



get _d_ 1 80_n ( I , d_ 1 80 , d_ 1 80_n , CD_180_N/1 .03 ) :- 
f i nd al 1 (deli nq _1 80, data(_, del inq_l 80, 

L ) , 

1 eng t h ( L , D_ 1 80_N ) , gc ( f u 1 1 ) . 
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get_d_120_a< I , d_ 1 20 , d_ 1 20_a , CD_120_A/1 .0] ) 
f i nda 1 1 ( Amount ,data(_,del inq_l 20 Amount 

, A) , 

total _d_l 20 _ a ( A , D_ 1 20_A ) ,gc (ful 1 ) . 
to ta 1 _d _ 120_a ( C ] , 0 ) : - 1. 

total _d_120_a( L A ! L 3 , D_ 1 20_A ) 

total_d_120_a(L, Subtotal ) , 

D_ 1 20_A is Subtotal + A. 

get_d_150_n( I , d_ 1 50 , d_ 150_n , CD_150_N/1 .03 ) :- 

findal 1 (del i nq_l 50 ,data(_,del inq_l 50 , - 

L) , 

length (L,D_150_N) , gc(ful 1 ) . 
get _d _ 1 50_a ( I , d_150 , d_150_a , CD_150_A/1 .03 ) :- 
f i ndal 1 < Amount ,data(_,delinq_150 5 _ 5 _ 5 _ 5 _,_, Amount — 
, A) , 

total _d_150_a< A,D_150_A) ,gc (ful 1 ) . 
total_d_150_a( L 3 ,0) 1. 
total_d_150_a ( CA1L3 ,D_150_A) 

total_d_150_a ( L , Subtotal ) , 

D_ 1 50_A is Subtotal + A. 

get _d_ 1 B0_n ( I , d_ 1 80 , d_ 1 S0_n , C D_ 1B0_N/ 1 . 0 3 ) 
find all <delinq_l 80 , data<_, deli nq_180, 

L) , 

length (L,D_180_N) ,gc(ful 1 ) . 
get_d_ 180_a ( I , d_180 , d_180_a , CD_180_A/1 .0] ) 
findal 1 < Amount ,data(_,del inq_l 80 Amount 
, A) , 

total_d_180_a(A,D_180_A) ,gc(full ) . 
total_d_180_a( CD ,0) l. 
total_d_l 80 _a ( CA1L] ,D_180_A) 

total _d_180_a(L, Subtotal ) , 

D_ 1 80_A is Subtotal + A. 

get_c_w_60_n ( I , c_w_60 , c_w_60_n , CC_w_60_N/ 1 . OH ) 
f indal 1 (c_w_60 , data ( _ , c_w_60 ,L) , 
length (L,C_w_60_N) , gc (ful 1 ) . 
get_c _w_60_a ( I , c_w_60 , c_w_60_a , C C_w_60_A/ 1.0]) : - 
findal 1 (Amount ,data(_, c_w_60 , _ , i Amount , _ , _ ) , A ) , 

total c_w_60_a(A,C_w_60_A) ,.gc(ful 1 ) . 
total _c_w_60_a ( C ] , 0 ) : - 1. 

total _c_w_60_a ( C A ! L ] ,C_w_60_A) 

total_c_w_60_a(Li Subtotal ) , 

C_w_60_A is Subtotal + A. 

get_c_w_90_n( I >c_w_90,c_w_90_n, CC_w_90_N/l .0] ) 
findal 1 ( c_w_90 , data (_, c_w_90 ) ,L) , 
length <L,C_w_90_N) ,gc(full ) . 






qet_c_w_90_a ( I ,c_w_90,c_w_90_a, [ C_w_90_ A/ 1 .03 ) :- 
f i nda 1 1 ( Amount ,data(_,c_w_90, Amount , _ , _ ) >A) , 
total _c_w_90_a ( A , C_w_90_A ) ,gc (ful 1 > . 
to tal _c_w_90_a ( [ 1 , 0 ) : - 1, 
to t a l_c_w_90_a ( [A! LI , C_w_90_A) :- 
total _c_w_90_a (L, Subtotal) , 

C_w_90_A is Subtotal + A. 

get_c_w_l 20 _n ( I , c_w_ 1 SO , c_w_ 1 20_n , CC_w_120_N/ 1 ;01>:- 
findall ( c_w_ 1 20 , dat a (_, c_w_ 1 20 ) ,L) , 
length ( L , C_w_ 1 20_N ) ,gc<full > . 
get_c_w_ 120_a ( I , c_w_120 , c_w_120_a , CC_w_120_A/l .01):- 
f i nda 1 1 ( Amount , data ( _ ,c_w_ 120, Amount , _ , _ ) , A ) 
total_c_w_l 20_a ( A , C_w_ 1 20_A ) ,gc(full > . 
total_c_w_120_a( [ 1 ,0) i. 
total_c_w_l 20_a ( [AiLl ,C_w_120_A) :- 
total_c_w_l 20 _ a (L, Subtotal ) , 

C_w_120_A is Subtotal + A. 

get _c_w_l 50_n ( I , c_w_l 50 , c_w_ 1 50_n , CC_w_150_N/l .01 ) 
f i nda 11 ( c_w_150 , data (_, c_w_150 ) ,L) , 

1 eng th ( L , C_w_ 1 50_N ) ,gc(ful 1 ) . 
get _c_w_ 150_a ( I , c_w_ 150 , c_w_ 1 50_a , C C_w_ 1 50_A/ 1 . 0 1 ) 
t i nda 1 1 ( Amount ,data(_,c_w_l 50 >_»_>_>_»_> Amount , _ , _ ) , A ) 
total_c_w_l 50 _ a ( A , C_w_ 1 50_A ) ,gc(full ) . 
total_c_w_150_a( C 1 ,0) !. 
total_c_w_150_a( CA ! LI ,C_w_150_A) 
to tal_c_w_150_a(L, Sub total ) , 

C_w_150_A is Subtotal + A. 

get_c_w_180_n( I , c_w_ 180 , c_w_ 180_n , CC_w_lS0_N/l .01):- 
f indall ( c_w_ 1 80, dat a (_,c_w_ 180, ,L> , 
length ( L , C_w_ 1 80_N ) , gc ( fu 11). 
get_c_w_ 180_a ( I , c_w_ 1 80 , c_w_ 1 80_a , C C_w_ 180_A/ 1.01) :- 
f i nda 1 1 ( Amount ,data(_,c_w_l 80 , » Amount , _ , _ ) , A ) 
total _c_w_ 1 80_a ( A , C_w_ 1 80_A ) ,gc ( ful 1 ) . 
total_c_w_l 80_a ( C 1 , 0 ) : - 1. 

total_c_w_ 180_a ( CA!L1 ,C_w_180_A) s- 
to t a 1 _c_w_ 1 80_a ( L , Sub to ta 1 ) , 

C_w_180_A is Subtotal + A. 

get_pdbydlr_n( I ,pdbydlr, pdbyd 1 r n , C PDBYDLR_N/ 1.01):- 
findall(pdbydlr,data(_,pdbydlr,_,_,_,_,_,_,_,_) ,L) , 
length (L,PDBYDLR_N) ,gc(full ) . 
get_pdbydlr_a( I ,pdbydlr ,pdbydlr_a, CPDBYDLR_A/ 1.01) : - 
f i ndal 1 ( Amount ,data(_,pdbydlr, Amount , _ , _ ) , A ) 
total_pdbydlr_a(A, PDBYDLR_A ) , gc ( f u 1 1 ) . 
to tal _pdbyd 1 r_a ( C 1 , 0 ): - !. 

total_pdbydlr_a( LA! LI , PDBYDLR_A ) :- 
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to ta 1 _pdbyd 1 r_a ( L , Sub to t a 1 ) , 

PDBYDLR_A is Subtotal + A. 

get_suit_n( I ,suit ,suit_n, CSuit_N/l .03 ) : - 
findal 1 (sui t ,data(_, suit , L ) , 
length (L,Suit_N) ,gc(full ) . 
get _sui t _a ( I , su i t , su i t _a , [ Su i t _A/ 1 . 0 3 ) : - 
f i ndal 1 ( Amount ,data(_, suit, Amount , _ , 
total_suit_a(A, Su it_A) , gc ( f u 1 1 ) . 
to ta 1 _su i t _a ( C 3 , 0 ) : - 1. 
total_suit_a( CAIL3 , Su i t_A ) : - 

total_suit_a(L, Sub to ta 1 ) , 

Suit_A is Subtotal + A. 

get_bk_vals ( I , trw , bk_va Is , CBK_VALS/1 .03):- 
bk_7_f i le ( BK_7 ) , 
bk_ll_file( BK_ 1 1 ) , 
bk_13_fi le( BK_ 1 3 ) , 
bk_7_disc( BK_7_D I SC ) , 
bk_7_dism(BK_7_DISM) , 
bk_13_comp (COMP ) , 

BK_0ALS is 

BK_7+BK_1 1+BK_13+BK_7_DISC+BK_7_DISM+C0MP, 
gc ( ful 1 ) . 

bk_7_f i 1 e ( BK_7 ) 

(data(_,bk_7_file, 

BK_7 is 200) ; BK_7 is 0. 

bk_ll_file(BK_ll ) 

( da ta(_,bk_ll_file, 

BK_ 1 1 is 200) ; BK_ 1 1 is 0. 

bk_13_fi le( BK_ 1 3 ) 

(data(_,bk_13_f i le, , 

BK_ 1 3 is 200) 5 BK_ 1 3 is 0. 

bk_7_disc( BK_7_D I SC ) 

(data(_,bk_7_disc >_>_>_> _»_>_>_»_) > 

BK_7_D I SC is 200) ; BK_7_DISC is 0. 

b k _7_d i sm ( BK_7_D I SM ) 

(data(_,bk_7_d ism, 

BK_7_D I SM is 200) ; BK_7_DISM is 0. 

bk_13_comp (COMP) 

(data(_,bk_l 3_comp , 

COMP is 200) ; COMP is 0. 



) ,A) , 
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memDer ( X , [ X , _] ) . 

member ( X , C_ ! Y3 ); - member(X,Y) . 

5how_bk_fi 1 e_message ( T_bk_va ls,Bk_vals) 
nl > put ( 7 ) , wr i te( ’ The person is bankrupt.’), 
bk_val_oer_starus( T_bk_va ls,Bk_vals) . 



show_bk_d isc_message (T_bk_vals,Bk_vals) : - 
nl ,put (7) , 

write( ’The oerson is a discharged bankrupt.’), 

bk_val_per_status( T_bk_va 1 s , Bk_val s ) . 

show_bk_di sm_message (T_bk_vals,Bk_vals) : - 
nl , put ( 7 ) , 

write( ’The bankruptcy petition was 
dismissed/comp ieted . ’ ) , 
bk_val_per_status(T_bk_vals,Bk_vals). 

not_bankruot_case(Bk_Vals> 

bk_val_per_status(not_bankrupt,Ek_Vals) . 



♦ Alternate method of searching for Bankrupt credit 
remarks that may be modified in the future. 

look_f or_bk_remar k ( BK_VALS ) ; BK_VALS is 0. 

look_.for_bk_remar k ( BK_VALS) 

data ( _ , CRED ITREMARK , 
caseC C CRED I TREMARK=b k _7_f i le— >VAL is 200, 

CRED I TREMARK=bk_ 1 1 _f i 1 e-> VAL is 200, 

CRED I TREMARK=b k_ 13_f i 1 e- > VAL is 200, 

CRED IT REMAR K=b k_7_d i sc- > VAL is 200, 

CRED I TREMARK=b k_ 1 1 _f i 1 e- > VAL is 200, 

CRED I TREMARK=b k_7_d i sm-> VAL is 200, 

CRED I TREMARK=b k_l 1 _f i 1 e->VAL is 200, 

CRED I TREMARK=b k_13_fil e-> VAL is 200, 
CREDITREMARK=bk_13_comD->VAL is 200! 

VAL is OH), ! , 

if thene 1 se ( VAL=200 , BK_VALS is 200 , nex t_b k_search ) . 
nex t_bk_search : - 

da ta(_, CRED ITREMARK, , ! , 
get_bk_va 1 s ( I , t r w , b k_va 1 s , [ BK_V ALS/ 1 .01 ) . 
check_bk_f i le ( Temp _BK_V ALS , BK_VALS ) ; 
chec k _b k_d i sc ( Temp_BK_V ALS , BK_VALS ) ) ; 
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check _bk _d i sm ( Temp_BK_VALS , BK_VALS ) ) . 



get_b k_va Is ( I,trw,bk_vals,C BK_VALS/ 1.0]) : - 

bk_va 1 _per_status ( no t _bankrup t , BK_VALS ) . 



check_bk_f i le ( Temp_BK_VALS , BK_VALS ) : - 

member ( T emp_BK_VALS , Cbk_7_f ile,bk_ll_file,bk_13_file]) 
show_bk_f i le_message ( T emp_BK_VALS , BK_VALS ) . 



check _bk_d i sc ( T emp_BK_VALS , BK_VALS ) : - 

member ( Temp_BK_VALS , Cbk_7_d i sc , bk_ 1 1 _d i sc ] ) , 

show_bk_d i sc_message ( Temp_BK_VALS , BK_VALS ) . 

check_bk_di sm ( T emp_BK_VALS , BK_VALS ) : - 
member ( T emp_BK_VALS , C bk_7_d i sm ,bk_l l_dism,bk_13_dism, 
bk_13_comp ] ) , 

show_bk_d i sm_message ( T emp _BK_VALS , BK_VALS ) . 



qet _no tpdaa_n ( I ,notpdaa, no tpdaa_n , C Notpdaa_N/ 1.0]):- 
f i nda 1 1 ( no tpdaa , dat a ( _ , no tpdaa >_*_)_*_»_*_>_*_) >L) , 
length(L,Notpdaa_N) ,gc(full ) . 

get_notpdaa_a ( I ,notpdaa,notpdaa_a, CNotpdaa_A/l .0] ) 
f i nda 1 1 ( Amount ,data(_, no tpdaa, Amount , _ , _ ) , A ) 
total_notpdaa_a(A,Notpdaa_A) ,gc(full ) . 
to t a 1 _no tpdaa_a ( C ] , 0 ) : - !. 

total_notpdaa_a( C A i L] , Notpdaa_A ) : - 
total_notpdaa_a(L, Subtotal ) , 

Notpdaa_A is Subtotal + A. 

get _f c 1 os_va 1 s ( I , f or ec 1 osure , foreclosure_weight_val , 
CFCWTVAL/1 .0] ) : - 

data(_,forec 1 osure , 
show_forec losure_message , 

weight_per_status(foreclosure,FCWTVAL) ,gc (ful 1 ) . 



get_fclos_vals( I , f orec 1 osure , f orec losur e_we igh t _va 1 , 
CFCWTVAL/1 .0] ) : - 

FCWTVAL is 0,gc(full). 

show_f orec losure_message : — 
nl ,put (7 ) , 
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writer 'There is a foreclosure item in the report.’). 



ge t_ j udgment_va 1 s ( I , judgment , judgmen t_we ight_val , 
[JDWTVAL/1 .0] > :- 

data ( _ , judgment , 
show_ judgment_message , 

we ight_per_ status ( judgment , JDWTVAL) , gc ( ful 1 ) . 

get_ judgment _va 1 s ( I , judgment , judgment _wei gh t_va 1 , 

C JDWTVAL/ 1.0]):- 

JDWTVAL is 0,gc( f u 11). 

show_ judgmen t_mes sage : - 
n 1 , put ( 7 ) , 

wr ite( ’There is a judgment item in the report.’). 



get_repo_vals( I , r epo ,repo_weight_val , 
CREPOWTVAL/1 .0] ) 

data(_, repo, , 
show_repo_message , 

we ight_per_status(repo , REPQWTVAL ) , gc ( f ul 1 ) . 



ge t _r epo_va 1 s ( I , repo , repo _ we ight_val , 
CREPOWTVAL/1 .0] ) 

REPOWTVAL is 0,gc(full). 

show_.repo_message : - 
n 1 , put < 7 ) , 

write! ’There is a repossessed item in the 
report . ’ ) . 



reverse_text(Text) s- 
name ( Tex t , L ) , 
length (L,N) , 
wa(N, 112) , 
put (7) , 
write(Text) . 

get _pd_co 1 1 _ac _n ( I ,pd_col l_ac , pd_c ol l_ac_n, 
CPD_COLL_AC_N/ 1.0]):- 

findal 1 (pd_col l_ac ,data(_,pd_col l_ac, , — 
L ) , 

1 eng th ( L , PD_COLL_AC_N ) ,gc (ful 1 ) . 
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get_charge_off_n( I ,charge_off , charge _off_n, 
CCHARGE_0FF_N/1 .03 ) :- 

findall (charge _of f , data(_, charge _off, , - 
L) , 

length(L,CHARGE_QFF_N) ,gc(ful 1 ) . 

check_recent_i nq ( I , i nqu i ry,no_of_inq, CNoE/ 1.03) : - 
t i ndal 1 ( Do I , i nq ( _ , Do I ) , L ) , 

1 eng th ( L , NoE_ 1 ) , 

NoE_2 is NoE_l - 10, 

i f thenel se ( NoE_2 <0,NoE_3 is 0,NoE_3 is NoE_2), 
ifthen(NoE_3>5,show_i nq_message ) , 

i f thenel se ( NoE_3=0 , NoE is 0,NoE is NoE_l ) . 



show_ i nq_message : - 

nl , put ( 7 ) , wr i te ( ’ Too many inquiries’). 

get_curr_acct_n( I , super payer , curr_acct_n , C N/ 1 . 0 3 ) : - 
f i ndall (cur r_acct,data(_,curr_acct, ,L) , 
1 eng th ( L , N_ 1 ) , 

N_2 is N_1 - 10, /*only over 10 curr_accts are 
bad */ 

i f thene 1 se ( N_2 < 0,N_3 is 0,N_3 is N_2 ) , 
i f thene 1 se ( N_3=0 , N is 0,N is N_2 ) , 
gc ( ful 1 ) . 



show_curr_acct_message : - 

nl , put ( 7 ) , wr i te ( ’ Too many active creditors’). 



/* compute_ to ta 1 _month 1 y_payment ( 1 1 1 1 1 1 1 1 6 , 586^ ) . */ 
compute_to ta 1 _month 1 y_payment ( SSN , Expenses ) : - 
next_match , gc ( f u 1 1 ) , 
to ta l_month 1 y_expenses ( Expenses ) , 
cur rent _case ( Current_Case ) , 

[Curr ent_Case3 , gc ( f ul 1 ) . 

/* This is to reintroduce the data() predicates just 
wiped out during the total monthly payment computations 



nextmatch : - 

next_payment ; tota l_month 1 y_payments . 
nex t_payment : - 

data(A,B,C,D,E,F ,G, Balance _Due,H, I ) , ! , 
i f then ( var ( Ba 1 ance_Due ) , Ba 1 ance_Due is 0), 
asserta(balance_due(Balance_Due) ) , 
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retractal 1 ( da ta ( A , B , C , D , E , F , G , Ba 1 ance_Due , H , I ) ) ,gc (ful- 
1 ) , 

nex t_match . 

total _month ly_payments : - 

findal 1 (Bal ance_Due ,balance_due(Bal ance_Due ) , L ) , 
total .balances (L , To ta 1 _Ba 1 ance ) , 

Expenses is Total_Balance#0. 10, 

assert 2 ( to t a 1 _mon th 1 y_expenses (Expenses) ) . 

to t a 1 _ba 1 ances ( C D , 0 ) : - !. 

total_bal ances (CS!LD,Total_Ba lance) : - 
total_balances(L, Sub total) , 

Tota 1 _Ba 1 ance is Subtotal + S. 



retractall (X) retract(X) ,fail . 
retractall(X) :-retract( (x:-y) ) , fai 1 . 
retractal 1 ( _ ) . 



compute. to ta 1 .month 1 y.payment ( _ , 0 ) . 

/*• 

compute_discretionary_income( 1 11 1 1 1 1 16, single, 93943, - 
3000). */ 

/* compute.d i scret ionary.income 3000 ) . */ 

compute.discret ionary.income < SSN , Di scret ionary.in- 
come ) : - 

amp 1 oyee ( SSN ,GS_Level ,Sal_Step, M.Status , Z i p ) , 
gs_sal_table(GS_Level , Sa 1 _Step , I ) , 
if thenelse(M_Status=marr ied, Income is 1*1.60, 
Income is I ) , 

tax ( I ncome ,Tax_rate) , 
rent (Zip ,Rent ) , 

Food is I ncome*0 . 20 , 

Net.rate is 1-Tax_rate, 

Di sposab 1 e_ i ncome is Income*Net.rate, 

Expenses is Rent+Food, 

Yr ly.d iscret ion.amount is 
Uisposable.i ncome-Expenses , 

Discr.Inc is Yr 1 y.d i scret i on.amount / 1 2 , 
Discretionary.Income is 
round (Discr.Inc ,0) ,gc(ful 1 ) . 

tax ( Income ,Tax.rate) : - 

case ( C I ncome< 10000->Tax_ra te is 0, 

Income<30000->Tax_rate is 0.15! 

Tax.rate is 0.28D). 
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rent ( ’93943’ ,700) . 
rent ( ’93949’ ,700) . 



/* All conclusions are based these weighted decisions. 
*/ 



weighted_decision( 10, normal ) . 

we i gh ted_dec i si on ( 20 , norma 1 ) . 

we i gh ted_dec i s ion ( 30 , norma 1 ) . 

we i gh ted_dec i s i on ( 40 , satisfactory) . 

we igh ted_dec i si on ( 50 , sat i sf ac tory ) . 

we igh ted dec i s ion < 60 , 1 ess_than_sa t i sf ac tory ) . 

weighted_decision(70,less_than_sat isf ac tory ) . 

we i gh ted_dec i s ion < 80 , poor ) . 

we i gh ted_dec i s i on ( 90 , poor ) . 

weighted_dec ision ( 100 ,very_poor ) . 

weighted_decision( 1 10,very_poor ) . 

weigh ted_dec ision < 120 , ser ious ) . 

we i gh ted_dec i s i on ( 130, serious) . 

weighted_dec ision < 140, serious) . 

weighted_decision< 150 , very _ser i ous ) . 

we i gh ted_dec i s i on ( 160,very_ser ious) . 

weighted_decision( 170, critical ) . 

weighted_decision< 180, critical ) . 

weighted_decision( 190, critical ) . 

weighted_decision<_, very_cr i t ica 1 ) . 



we i gh t _per_s ta tus ( pdbyd 1 r , 50 ) . 
weight_per_status(notpdaa,30) . 
weight_per_status(col l_acct , 200 ) . 
weight _per_status(pd_col l_ac , 30 ) . 
we ight_per_status<charge_off, 200 ) . 
weight_per_status( inquiry, 10) . 
weight_per_status( curr_acct , 10) . 
weigh t_per_status ( f or ec losure , 200 ) . 
weight_per_status ( judgment , 200 ) . 
weight_per_status ( repo , 200 ) . 
we i gh t _per_sta tus ( sui t , 70 ) . 
weight_per_status(del i nq_60 , 30 ) . 
weight_per_status(deli nq_90 , 30 ) . 
wei gh t per _sta tus ( de 1 inq_ 1 20 , 40 ) . 
weight _per _sta tus ( de 1 i nq_ 1 50 , 40 ) . 
we igh t_per _sta tus ( del i nq_ 1 80 , 50 ) . 
weigh t_per_status < c_w_60 ,10). 
weight_per_status( c_w_90 , 10 ) . 
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we igh t_per_status ( c_w_ 120 , SO ) . 
weight_per_status < c_w_ 150 , SO ) . 
we igh t_per_status ( c_w_ 180 , 30 ) . 
weight_per_status( insc 1 a im , 70 ) . 
we ight_per_status( volnrepo , 100 ) . 
weight_per_status(cwpd ,10) . 
weight_per_status ( cwpd_30 , 10) . 
weight_per_status< cwpd_30byS , SO ) . 
weight per_status(cwpd_30by3,S0 ) . 
weiqht_per_status( cwpd_30by4 , 30 ) . 
weight per_status( cwpd_30by5 , 40 ) . 
weight_per_status< cwpd_30by6 , 40 ) . 
weight_per_status ( accpd_30,S0 ) . 
weight_per_status< accpd_30byS , SO ) . 
weight_per_status ( accpd_30by3 , SO ) . 
we igh t_per_status ( accpd_30by4 , 30 ) . 
weight_per_status( accpd_30by5 , 40 ) . 
weight_per_status( accpd_30by6 , 40 ) . 
we ight_per _status ( pacc_wpd_30 , 10) . 
weight _per_status( pacc_wpd_30byS3 , SO ) . 
weight_per_status( pacc_wpd_30by4 , 30 ) . 
weight_per_status( pacc_wpd_30by5 , 40 ) . 
weight_per_status ( pacc_wpd_30by6 , 40 ) . 
weight_per_status ( pacc_wde 1 60 , 10) . 
weight_per_5tatusl pacc_wdel 90 , SO ) . 
weight_per_status(pacc_wdel 150,30) . 
weight_per_status ( pacc_wdel 150 , 40 ) . 
weight_per_status(pacc_wdel 180,50) . 
we ight_per_status(pd_repo , 50 ) . 
we ight_per_status ( pd_chg_of f , 50 ) . 
weight_per_status(pd_foreclo,50) . 
weight_per_status(bkl iqreo,S00) . 
we ight_per_status( settled, 50) . 
weight_per_status(bk_ad j_pln, S00 ) . 
weight_per_status(scnl_nwloc,50). 
weight _per _s ta tus (co_now_pay, 50 ) . 
we ight per_status(fore_proc, S00 ) . 
weight_per_5tatus(gov_claim,70) . 
weight _per_status(close_np_aa, 50 ) . 
weight_per_5tatus(scnl , 100 ) . 
weight _per_status(fed_tax_ln, S00 ) . 
we i gh t _per_s tatus ( f ed_tax_re 1 ,50) . 
weight_per_status ( judgmt_sat , 50 ) . 
weight_per_status( judg_vacat, 10) . 
weight_per_status(mech_l ien, S00 ) . 
we ight_per_status ( mech_re 1 e , 50 ) . 
weight_per_status( mn_mtg_f i 1 , 10 ) . 
weight_per_status(nt_respon,SO). 
weight _per_status(stat_tx_ln, 300 ) . 
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weight_per_status(sta_tx_rel ,50) . 
weight_per_status(suit_d ismd , 10 ) . 
weight_per_status( wage_asign , 50 ) . 
weight_per_status(wa_release, 10) . 
we ight per_status(refinanced , 10) . 
weight_per_status(cr_cd_lost , 10) . 
weight per_status(clos_inac , 10) . 
we i gh t _per _s tatus ( transfered ,10). 
we ight_per_status( too_new_r t , 1 0 ) . 
we i gh t _per_s tatus ( paid_sat i s , 10 ) . 
weight_per_status( paid_acct , 10 ) . 
we igh t_per_s tatus (deceased , 10) . 
weight_per_status(cr_ln_clos,50). 
weight_per_status ( red md_ repo , 30 ) . 
weigh t_per_status ( cur_was_co 1,30) . 
weight_per_status(cr_ln_rnst , 10) . 
weight_per_status(cur_was_for , 30 ) . 
weight_per_status( pd_no t _aa , 20 ) . 
we ight_per_status(city_tx_ln, 200 ) . 
wei gh t _per_s tatus (c i ty_t x_re 1 , 50 ) . 
wei ght _per_st at us ( c arise 1 _ser , 20 ) . 
weight_per_status(co_tax_ln, 200 ) . 
weight_per_status ( co_tax_rel ,50) . 

we igh t_f or_superpayer ( 200 ) . 

bk_val_per_status(not _bankrup t , O ) . 
bk_val_per_status(bk_7_disc ,200) . 
bk_val_per_status(bk_7_fi le,200) . 
bk_val_per_status(bk_ll_file, 200 ) . 
bk_va 1 _per_s tatus ( b k_7_d i sm , 200 ) . 
bk_va 1 _per_status ( bk_ 1 1 _d i sm , 200 ) . 
bk_val_per_status(bk_ll_disc, 200 ) . 
bk_val_per_status(bk_13_di sm , 200 ) . 
bk_val _per_status ( bk_ 1 3_f i le,200) . 

bk_val_per_status(bk_13_comp , 200 ) . 

get_insclaim_n( I , i nsc 1 a im , i nsc laim_n, CInsclaim_N/l .0] 

f i ndal 1 ( insc laim,data(_, i nsc laim, ,L) , 
length(L, Insclaim_N) ,gc(ful 1 ) . 
get_insclaim_a( I , insc laim, i nsc laim_a,EI nsc 1 a i m_A/ 1 .0] 
) : - 

findal 1 (Amount ,data(_, i nsc laim, Amo unt,_,_) , 
A) , 

total_insclai m_a ( A , I nsc 1 a im_A ) , gc ( f u 1 1 ) . 
total _insclaim_a( [] ,0) !. 
total_insclaim_a(CA!LJ, Insclaim_A) : - 
total_insclaim_a(L, Sub to t a 1 ) , 
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I nsc 1 a i m_A is Subtotal + A. 

qet_volnrepo_n( I jvolnrepo,volnrepo_n, C Vo 1 nrepo_N/ 1.0]- 

fi nd all< vo 1 nr epo,data(_,vol nr epo, ,L) , 
length (L , Vo lnrepo_N ), gc ( ful 1 ) . 
qet _vo 1 nrepo_a ( I , vo 1 nr epo , vo lnrepo_a , C Vo 1 nrepo_A/ 1 . 0]- 

f i nda 1 1 < Amount ,data(_,volnr epo, Amount , _ , _ ) , - 
A ) , 

totai_vol nrepo_a ( A , Vo 1 nrepo_A ) . 
to ta 1 _vo lnrepo _a ( C ] , 0 ) : - 1. 
to t a 1 _vo 1 nrepo _a ( C A ! L ] , Vo 1 nr epo A ) : - 
total_volnrepo_a(L,Subtotal ) , 

Vo 1 nrepo_A is Subtotal + A. 

get_cwpd_n ( I ,cwpd,cwpd_n, CCwpd_N/ 1.0]) i- 
f indal 1 (cwpd,data(_,cwpd,_,_,_,_,_,_,_,_) ,L) , 
length (L, Cwpd_N ) , gc ( f u 1 1 ) . 
get_cwpd_a ( I , cwpd , cwpd_a , CCwpd_A/ 1.0]):- 
f i nda 1 1 ( Amount ,data(_, cwpd, Amount ,_,_), A ) , 
to ta 1 _cwpd_a C A , Cwpd_A ) , gc ( f u 1 1 ) . 
total_cwpd_a( C ] ,0) ! . 
total_cwpd_a( C A ! L ] , Cwpd_A ) : - 

total_cwpd_a(L,Subtotal ) , 

Cwpd_A is Subtotal + A. 

get_cwpd_30_n ( I , cwpd_30 , cwpd_30_n , CCwpd_30_N/ 1.0]) : - 
findall(cwpd_30,data(_, cwpd_30 ,L) , 
length ( L , Cwpd_30_N ) , gc ( f ul 1 ) . 
ge t_c wpd_30_a ( I , cwpd_30 , c wpd_30_a , CCwpd_30_A/l .0] ) 
f inda 1 1 ( Amount ,data(_,cwpd_30,_,_,_,_,_, Amount , _ , _ ) , A ) , 
total _cwpd_30_a ( A , Cwpd_30_A ) , gc ( f u 1 1 ) . 
to t a 1 _c wod_30_a ( C ] , 0 ) : - ! . 
to tal_cwpd_30_a ( C A ! L ] , Cwpd_30_A ) : - 
total _cwpd_30_a ( L , Sub to ta 1 ) , 

Cwpd_30_A is Subtotal + A. 



get_cwpd_30byS_n ( I , cwpd_30by2 , cwpd_30by2_n , CCwpd_30by2- 
_N/1 .0] ) :- 

findal 1 <cwpd_30bv2,data(_ , cwpd_30by2 ,~ 
L ) , 

1 ength ( L , Cwpd_30by2_N ) , gc ( f ul 1 ) . 
get_cwod_30by2_a ( I , cwpd_30by2 , cwpd_30by2_a , CCwpd_30by2- 
_A/1 .0] ) :- 

f i nda 1 1 ( Amount , data ( _ , cwpd_30by2 Amount ,_,_)- 
, A) , 

total _c wpd _30by2_a ( A , Cwpd _30by2_A ) , gc ( f u 1 1 ) . 
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total_cwpd_30by2_a < C 3 , 0 ) : - !. 
to t al _cwpd_30by2_a ( E A ! L 3 , Cwpd_30by2_A ) : - 
total_cwpd_30by2_a( L , Subtotal ) , 

Cwpd_30by2_A is Subtotal + A. 

get_cwpd_30by3_n ( I , cwpd_30by3 , cwpd_30by3_n , CCwpd_30by3- 
_N/1 .03 ) :- 

f i ndal 1 ( cwpd_30by3 , data ( _ , cwpd_30by3 » - 

L) , 

1 eng th ( L , Cwpd_30by3_N ) , gc ( f u 1 1 ) . 
get_cwpd_30by3_a ( I , cwpd_30by3 , cwpd_30by3_a , CCwpd_30by3- 
_A/ 1.03):- 

f i nda 1 1 ( Amoun t , data ( _ , cwpd_30by3 , _ , _ , _ , _ , _ , Amount 
, A ) , 

to tal _cwpd_30by3_a ( A , Cwpd_30by3_A ) , gc ( f u 1 1 ) . 
to ta 1 _cwpd_30by3_a ( C 3 , 0 ) : - 1. 
total_cwpd_30by3_a ( C A ! L3 , Cwpd_30by2_A ) : - 
total_cwpd_30by3_a(L , Subtotal ) , 

Cwpd_30by3_A is Subtotal + A. 

get_cwpd_30by4_n ( I , cwpd_30by4 , cwpd_30by4_n , CCwpd_30by4- 

_N/1 .03)7- 

f i ndal 1 ( cwpd_30by4 , data ( _ , cwpd_30by4 , - 
L) , 

length ( L , Cwpd_30by4_N ) , gc ( f u 1 1 ) . 
get_cwpd_30by4_a ( I , cwpd_30by4 , cwpd_30by4_a , CCwpd_30by4- 
_A/ 1.03):- 

f i nda 1 1 ( Amount , data ( _ , cwpd_30by4 , _ , _ , _ , _ , _ , Amount , _ 5 _ ) - 
, A) , 

to tal _cwpd_30by4_a ( A , Cwpd_30by4_A ) , gc < f ul 1 ) . 
total _cwpd_30by4_a < C 3 , 0 ) : - !. 
to tal _cwpd_30by4_a ( C A ! L3 , Cwpd_30by4_A ) : - 
to ta 1 _cwpd_30by4_a ( L 5 Sub to ta 1 ) , 

Cwpd_30by4_A is Subtotal + A. 

get_cwpd_30by5_n ( I , c wpd_30by5 , cwpd_30by5_n , HCwpd_30by5- 
_N/1 .03)7- 

f i ndal 1 ( cwpd_30by5 , data ( _ , cwpd_30by5 , - 
L) , 

1 eng th ( L , Cwpd_30by5_N ) , gc ( f u 1 1 ) . 
get_cwpd_30by5_a ( I , cwpd_30by5 , cwpd_30by5_a , CCwpd_30by5- 

_A/1 .03)7- 

f i nda 1 1 C Amount , data ( _ , cwpd_30by5 , > Amount ,_,_)- 
, A) , 

total _cwpd_30by5_a ( A , Cwpd_30by5_A ) , gc < f ul 1 ) . 
total _c wpd_30by5_a ( C 3 , 0 ) : - . 

total _c wpd_30by5_a ( C A ! L3 , Cwpd_30by5_A ) :- 
total_cwpd_30by5_a(L, Subtotal ) , 

Cwpd_30by5_A is Subtotal + A. 
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aet_cwpd_30by£>_n ( I , cwpd_30by<b , cwpd_30by£>_n , C Cwpd_30by£> 
_N/1 .01 > :- 

f i ndal 1 ( cwpd_30by6 , data ( _ , cwpd_30by6 , 
L) , 

length (L,Cwpd_30by6_N) ,gc(full ) . 
get_cwpd_30by6_a ( I , cwpd_30by6 , cwpd_30by <S_a , CCwpd_30by6 
_A/ 1.01)8— 

f i nda 1 1 ( Amount , data ( _ , cwpd_30by£> Amount , _ , _ ) 

, A) , 

total_cwpd_30by£>_a(A,Cwpd_30by<S_A) , gc ( f u 1 1 ) . 
total_cwpd_30by6_a ( C 1 , 0 ) : - t. 
total _cwpd_30by6_a ( CAILl , Cwpd_30by6_A ) :- 
total _cwpd_30by<b_a(L , Subtotal ) , 

Cwpd_30by6_A is Subtotal + A. 

get_accpd_30_n ( I , accpd_30 s accpd_30_n , CAccpd_30_N/l .01- 
) : - 

f i nda 1 1 ( accpd_30 ,data ( _ , accpd_30 ,L > , 
lengthCL, Accpd_30_NT ,gc(ful 1 ) . 
get_accpd_30_a ( I , accpd _30, accpd_30_a , CAccpd_30_A/ 1.01- 
) 

f i nd a 1 1 C Amount , data ( _ , accpd_30 Amount , _ j _ ) > - 
A ) , 

to ta 1 _accpd_30_a ( A , Accpd_30_A ) , gc ( f u 1 1 ) . 
total_accpd_30_a( C 1 ,0) :- 1. 
to t a 1 _accpd_30_a ( C A ! L 1 » Accpd_30_A ) : - 
to ta 1 _accpd_30_a ( L , Sub to ta 1 ) , 

Accpd_30_A is Subtotal + A. 



get_accpd_30by2_n ( I 5 accpd_30by2 » accpd_30by2_n , 

C Accpd_30by2_N/ 1 .01 ) :- 

f i nda 1 1 ( accpd_30by2 , data ( _ > accpd_30by2 
) ,L) , 

1 eng t h ( L , Accpd_30by2_N ) , gc ( f ul 1 ) . 
get_accpd_30by2_a ( I , accpd_30by2 » accpd_30by2_a , 
[Accpd_30by2_A/l .01):- 

f i nda 1 1 C Amount , data ( _ , accpd_30by2 Amount , _ , 

) , A ) , 

total _accpd_30by2_a ( A , Accpd_30by2_A ) , gc ( f ul 1 ) . 
to ta 1 _accpd_30by2_a ( C 1 , 0 ) : - 1. 

total _accpd_30by2_a ( L A ! L 1 > Accpd _30by2_A ) : - 
total _acc pd_30by2_a ( L , Sub to ta 1 ) 5 
Accpd_30by2_A is Subtotal + A. 

get_accpd_30by3_n ( I , accpd_30by3 , accpd_30by3_n » 

[ Accpd _30by3_N/ 1 .01 ) :- 
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f i ndal 1 ( accpd_30by3 ,data(_,accpd_30by3j_,_,_,_,_»_ 

) ,L> , 

length ( L , Accpd_30by3_N ) , gc ( f u 1 1 ) . 
get_accpd_30by3_a ( I , accpd_30by 3 , accpd_30by 3_a , 

[ Accpd_30by3_A/ 1 .03):- 

f i ndal 1 ( Amount , data ( _ , accpd_30by3 , _ , _ , _ , _ , _ , Amount 
) , A) , 

total _acc pd_30by3_a ( A , Accpd_30by3_A ) , gc ( f ul 1 ) . 
total_accpd_30by3_a( C 3 ,0) :- 1. 
total _accpd_30by3_a ( C A ! L 3 , Accpd_30by2_A ) : - 
to ta 1 _accpd_30by3_a ( L , Sub total ) , 

Accpd_30by3_A is Subtotal + A. 



get_accpd_30by4_n ( I , accpd_30by4 , accpd_30by4_n , 
CAccpd_30by4_N/l .03):- 

f i nda 1 1 ( accpd_30by^ ,data(_,accpd_30by4, 

),L), 

leng th ( L , Accpd_30by4_N ) , gc ( f u 1 1 ) . 
get_accpd_30by4-_a ( I , accpd_30by4 , accpd_30byA-_a , 
CAccpd_30by4_A/l .03):- 

f i ndal 1 ( Amount , da ta ( _ , accpd_30by4 , _ •> Amount 

) ,A) , 

to t al _accpd_30by <: t_a ( A , Accpd_30by4_A ) , gc ( f u 1 1 ) . 
to tal _accpd_30byA_a ( C 3 , 0 ) : - l. 
to tal _accpd_30by4_a ( C A ! L3 , Accpd_30by4_A ) : - 
total_accpd_30by4_a(L,Subtotal ) * 

Accpd_30by4_A is Subtotal + A. 

get_accpd_30by5_n ( I , accpd_30by5 , accpd_30by5_n , 
CAccpd_30by5_N/l .03):- 

f i nda 1 1 ( accpd_30by5 , data ( _ , accpd_30by5 , _ 
),L), 

leng th < L , Accpd_30by5_N ) , gc ( f ul 1 ) . 
get_accpd_30by5_a ( I , accpd_30by5 , accpd_30by5_a , 
CAccpd_30by5_A/l .03):- 

f i nda 1 1 ( Amount ,data(_,accpd_30by5,_,_,_,_,_,Amount 
) ,A) , 

to tal_accpd_30by5_a ( A, Accpd_30by5_A ) , gc (ful 1 ) . 
total_accpd_30by5_a ( C 3 , 0 ) : - l. 
total _accpd_30by5_a ( C A ! L 3 , Accpd_30by5_A ) : - 
total_accpd_30by5_a(L,Subtotal ) , 

Accpd_30by5_A is Subtotal + A. 

get_accpd_30by6_n ( I , accpd_30by6 , accpd_30by6_n , 
CAccpd_30by6_N/l .03):- 

f i nda 1 1 ( accpd_30by6 , data ( _ , accpd_30by6 
) ,L) , 

length ( L , Accpd_30by6_N ) , gc ( f u 1 1 ) . 
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get_accpd_30by6_a ( I , accpd_30by6 , accpd_30by6_a , 
CAccpd_30by6_A/ 1 .0] ) 

f i ndal 1 ( Amount , data ( _ , accpd_30by6 Amount , _ , 

) , A) , 

total _accpd_30by6_a ( A , Accpd_30by6_A ) ,gc(ful 1 ) . 
to tal _accpd_30by6_a ( [ 3 , 0 ) : - !. 
to tal _accpd_30by6_a ( L A ! L 3 » Accpd_30by6_A ) : - 
total_accpd_30by6_a(L,Subtotal ) , 

Accpd_30by6_A is Subtotal + A. 



get_pacc_wpd_30_n ( I ,pacc_wpd_30,pacc_wpd_30_n, 
CPacc_wpd_30_N/l .03 ) 

f i ndal 1 ( pacc_wpd_30 , data ( _ , pacc_wpd_30 
) ,L) , 

length CL, Pacc_wpd_30_N) gc (ful 1 > . 
get_pacc_wpd_30_a( I , pacc_wpd_30 , pacc_wpd_30_a , 
CPacc_wpd_30_A/ 1.03):— 

f i nda 1 1 ( Amount , data ( _ , pacc_wpd_30 , Amount , 

) , A ) , 

to tal _pacc_wpd_30_a ( A , Pacc_wpd_30_A ) , gc (ful 1 ) . 
total _pacc_wpd_30_a ( C 3 , 0 > : - 1. 

total_pacc_wpd_30_a ( C A ! L3 , Pacc_wpd_30_A ) 
total_pacc_wpd_30_a(L,Subtotal ) , 

Pacc_wpd_30_A is Subtotal + A. 

get_pacc_wpd_30by23_n ( I , pacc_wpd_30by23 , pacc_wpd_30by2- 
3_n, 

[Pacc_wpd_30by23_N/l .03 > :- 
f indal 1 ( pacc_wpd_30by23 , 

data ( , pacc_wpd_30by23 , L ) , 

leng th ( L , Pacc_wpd_30by23_N ) , gc ( f u 1 1 ) . 
get_pacc_wpd_30by23_a ( I , pacc_wpd_30by23 , pacc_wpd_30by2- 
3_a , 

[Pacc_wpd_30by23_A/l .03 > :- 

f inda 1 1 ( Amount * data ( _ , pacc_wpd_30by23 »_>_)_»_?_» Amount- 
, A ) , 

total _pacc _wpd _30by23_a ( A , Pacc_wpd_30by23_A ) , gc ( f u 1 1 ) . 
total_pacc_wpd_30by23_a ( C 3 , 0) i . 

total _pacc_wpd _30by23_a ( C A ! L 3 , Pacc_wpd_30by23_A ) : - 
total _pacc_wpd_30by23_a ( L , Sub total ) , 

Pace _wpd_30by23_A is Subtotal + A. 
get_pacc_wpd_30by4_n( I , pacc_wpd_30by4 , pacc_wpd_30by4_n ? 
CPacc_wpd_30by4_N/l .03 > :- 

f i nda 1 1 ( pacc_wpd_30by4 , data ( _ » pacc_wpd_30byA- »_»_>_»_ i _~ 
,L) , 

length ( L , Pacc_wpd_30byA_N ) ,gc(full) . 
get _pacc_wpd_30byA-_a ( I , pacc_wpd_30by4 , pacc_wpd_30by4_a, 
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C Pacc_wpd_30by4_A/ 1.0]):- 

f i ndal 1 ( Amount , data ( _ , pacc_wpd_30by4 , i Amount , - 
, A) , 

total _pacc_wpd_30by4_a ( A , Pacc_wpd_30by4_A ) , gc ( f ul 1 ) . 
total_pacc_wpd_30by4_a( C ] ,0) . 

to ta 1 _pacc_wpd_30by4_a ( C A ! L] , Pacc_wpd_30by4_A ) : - 
to ta 1 _pacc_wpd_30by4_a ( L , Sub to ta 1 ) , 

Pacc_wpd_30by4_A is Subtotal + A. 

get_pacc_wpd_30by5_n ( I , pacc_wpd_30by5 , pacc_wpd_30by5_n , 
CPacc_wpd_30by5_N/ 1.0]):- 

f i nda 1 1 ( pacc_wpd_30by5 , da ta ( _ , pacc_wpd_30by5 , _ , _ , _ , _ , _- 

>L) , 

length ( L , Pacc_wpd_30by5_N ) , gc ( f ul 1 ) . 
get_pacc_wpd_30by5_a ( I , pacc_wpd_30by5 , pacc_wpd_30by5_a , 
CPacc_wpd_30by5_A/ 1 .0] ) :- 

f i nda 1 1 ( Amount , data ( _ , pacc_wpd_30by5 » _ , _ , _ , _ , _ , Amount , - 
, A) , 

total _pacc_wpd_30by5_a ( A , Pacc_wpd_30by5_A ) , gc ( f ul 1 ) . 
to tal _pacc_wpd_30by5_a < C ] , 0 ) : - ! . 

to tal _pacc_wpd_30by5_a ( C A ! L] , Pacc_wpd_30by5_A ) : - 
to t al _pacc_wpd_30by5_a ( L » Sub t o t a 1 ) , 

Pacc_wpd_30by5_A is Subtotal + A. 

get_pacc_wpd_30by6_n ( I , pacc_wpd_30by6 , pacc_wpd_30by6_n, 
[Pacc_wpd_30by6_N/ 1.0]) : - 

f i nda 1 1 ( pacc_wpd_30by6 ,data(_, pacc_wpd_30by6 , _ , 

»L) , 

length ( L , Pacc_wpd_30by6_N ) , gc ( f ul 1 ) . 
get_pacc_wpd_30by6_a ( I , pacc_wpd_30by6 , pacc_wpd_30by6_a , 
CPacc_wpd_30by6_A/ 1 .0] ) :- 

f i ndal 1 ( Amount , data ( _ , pacc_wpd_30by6 , _ , •> Amount , - 

_, _) , A) , 

to tal _pacc_wpd_30by6_a ( A , Pacc_wpd_30by6_A ) , gc ( f u 1 1 ) . 
total _pacc_wpd_30by6_a ( C ] , 0 ) : - 1 . 

total _p ac c _ wpd_30by 6 _a ( C A ! L ] , Pacc_wpd_30by6_A ) : - 
to ta 1 _pacc_wpd_30by6_a ( L , Sub to ta 1 ) , 

Pacc_wpd_30by6_A is Subtotal + A. 



get_pacc_wdel60_n( I , pacc_wde 1 60 , pacc_wde 1 <bO_n , 
[Pacc_wdel 60_N/ 1.0]):— 

f i nda 1 1 ( pacc_wde 1 60 ,data(_,pacc_wdel60,_,_,_,_,_,_,_,_- 
) , L ) , 

1 eng th ( L , Pacc_wdel 60_N ) , gc ( f ul 1 ) . 
get_pacc_wdel60_a( I ,pacc_wdel60,pacc_wdel60_a, 
CPacc_wdel60_A/1.0]>:- 

f i nda 1 1 ( Amount ,data(_, pacc_wdel 60, Amount , _ , 

) , A) , 
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to ta 1 _pacc _wde 1 60 _ a ( A , Pacc_wdel 60_A ) ,gc(full ) . 
total_pacc_wdel60_a( C 3 , 0 ) :- !. 
total _pacc_wdel 60 _a ( [ A ! L 3 , Pacc_wde 1 60_A ) :- 
total _pacc_wde 160_a ( L > Subtotal ) , 

Pacc_wdel60_A is Subtotal + A. 

get_pacc_wdel90_n( I ,pacc_wdel90,pacc_wdel90_n, 
CPacc_wdel 90_N/ 1.03):- 

f indal 1 (pacc_wdel90 , data ( _ ,pacc_wdel90 
) ,L) , 

length ( L , Pacc_wde 1 90 _N ) , gc ( f ul 1 ) . 
get_pacc_wdel90_a( I ,pacc_wdel90,pacc_wdel90_a, 

CPacc_wde 190_A/ 1 .03 ) :- 

f i nda 1 1 ( Amount ,data(_,pacc_wdel90,_,_,_,_,_, Amount , _ , _- 
) , A) , 

total_pacc_wdel 90 _a ( A , Pacc_wdel90_A ) , gc ( f u 1 1 ) . 
tot al _pacc_wde 190_a ( Z 3 , 0 ) : - 1. 
total_pacc_wdel90_a ( C A ! L 3 , Pace _wde 1 90_A ) : - 
to ta 1 _pacc_wde 1 90_a ( L , Sub to ta 1 ) , 

Pacc_wdel90_A is Subtotal + A. 

get_pacc_wdel 1 20_n ( I , pacc_wde 1 1 20 , pacc_wdel 1 20 _n , 
CPacc_wdel 120_N/1 .03 ) :- 

findal 1 (pacc_wdel 1 20 ,data(_,pacc_wdel 1 20 
) ,L> , 

length(LiPacc_wdel 1 20_N ) , gc < f u 1 1 ) . 
get_pacc_wdel 1 20 _ a ( I ,pacc_wdel 1 20 >pacc_wdel 1 20_a , 
CPacc_wdell20_A/l .03 ) : - 

f i nda 1 1 ( Amount , data < _ , pacc_wdel 120, Amount , _ , - 
_) , A) , 

total ipacc_wdel 120_a(A,Pacc_wdell 20 _ A ) , gc ( f u 1 1 ) . 
to t a 1 _pacc_wde 1 1 20_a ( C 3 , 0 ) : - 1. 
total _pacc_wdel 1 20 _a ( C A ! L3 ,Pacc_wdel 1 20_A ) : - 
total_pacc_wdel 1 20_a (L, Subtotal ) , 

Pacc_wdel 120_A is Subtotal + A. 

get_pacc_wdell50_n( I ,pacc_wdel 150 , pacc_wde 1 150_n , 
[Pacc_wde 1 150_N/ 1.03):— 

findall (pacc_wdell 50 ,data(_,pacc_wdell 50 
,_) ,L> , 

length(L)Pacc_wdell 50 _N ) , gc ( f u 1 1 ) . 
ge t_pacc_wde 1 150_a( I ,pacc_wdel 150 ,pacc_wdel 1 50 a , 
CPaccwdell 50_A/ 1 .03):- 

f i nda 1 1 ( Amount , dat a ( _ , pacc_wdel Amount , _ , - 
_) , A) , 

total _pacc_wdel 1 50_a ( A , Pacc_wdel 1 50_A ) , gc ( f ul 1 ) . 
to ta 1 _pacc_wde 1 1 50_a ( C 3 , 0 ) : - ! . 

total pace _wde 1150_a(CA!L3, Pacc_wdel 1 50_A ) : - 
total _pacc_wdel 1 50 _a ( L , Subtotal ) , 
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Pacc_wdel 150_A is Subtotal 



A. 



qet_pacc_wdel 1 80 _n ( I , pacc_wde 1 180 ,pacc_wdel 1 80 _n , 
CPacc_wdel 1 80_N/ 1.03):- 

f i ndal 1 (pacc_wdel ISO , data (_ , pacc_wdel 1 BO, 

,_) ,L> , 

length(L,Pacc_wdell 80 _N ) , gc < f u 1 1 ) . 
get _pacc_wds 1 180_a( I ,pacc_wdel 180,pacc_wdel 180_a, 
CPacc_wdell80_A/l .03 > :- 

f i ndal 1 ( Amount ,data(_,pacc_wdel 180 Amount , _ , 

_) ,A) , 

to tal_pacc_wdel 1 80 _a ( A , Pacc_wde 1 1 80_A ) , gc ( f u 1 1 ) . 
to ta l_pacc_wde 1 1 80_a ( C 3 , 0 ) : - 1. 

to ta l_pacc_wde 1 180_a(CA!L3, Pacc_wde 1 1 80_A ) : - 
to ta 1 _pacc_wde 1 180_a(L , Sub total ) , 

Pacc_wde 1 1 80_A is Subtotal + A. 

get_pd_repo_n( I ,pd_repo ,pd_repo_n, 

CPd_repo_N/l .03 ) : - 

findall(pd_repo,data(_,pd_repo, ,L) , 
length(L,Pd_repo_N) , gc < f u 1 1 ) . 
get_pd_repo_a ( I , pd_repo , pd_repo_a , 

LPd_repo_A/ 1.03):- 

f i nda 1 1 ( Amount ,data(_,pd_repo, Amount , _ , _ ) , A ) 
to ta 1 _pd_repo_a ( A, Pd_repo_A ) , gc ( f ul 1 ) . 
to ta 1 _pd_repo_a ( C 3 , 0 ) : - !. 

total _pd_repo_a( C A ! L 3 ,Pd_repo_A) : - 
total_pd_repo_a(L, Subtotal ) , 

Pd_repo_A is Subtotal + A. 

get_pd_chg_of f _n ( I ,pd_chg_off , pd_chg_of f _n , 

CPd_chg_of f _N/ 1 .03 ) 

findall(pd_chg_off,data(_,pd_chg_off , 
L) , 

length(L,Pd_chg_off_N) , gc ( f ul 1 ) . 
get_pd_chg_of f _a ( I , pd_chg_of f , pd_chg_of f _a , 

CPd _chg_of f _A/ 1 .03):- 

f i nda 1 1 ( Amount ,data(_,pd_chg_off Amount , _ , _ ) 
, A) , 

total_pd_chg_off_a(A,Pd_chg_off_A) ,gc(full ) . 
to ta 1 _pd_chg_of f _a ( C 3 , 0 ) : - !. 

total_pd_chg_off_a( CA!L3 , Pd_chg_of f _A ) : - 
total_pd_chg_off_a(L, Subtotal ) , 

Pd_chg_off_A is Subtotal + A. 

get_pd_f orec lo_n ( I ,pd_foreclo,pd_foreclo_n, 
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CPd_foreclo_N/l .01 ) 

find all (pd_foreclo,data(_,pd_foreclo, 

L) , 

leng th ( L , Pd_f orec 1 o_N ) , gc ( f ul 1 ) . 
get_pd_foreclo_a( I ,pd_foreclo ,pd_forec lo_a , 

CPd_f orec lo_A/ 1 .01 ) : - 

f i nda 1 1 ( Amount , data(_, pd _f or eclo, Amount , _ , 
, A ) , 

total _pd_foreclo_a( Ai Pd _foreclo_A) ,gc ( f ul 1 ) . 
total_pd_forec lo_a< C 1 ,0) 1. 
total_pd_foreclo_a( CAIL1 ,Pd_foreclo_A) 
to tal _pd_f orec lo_a(L, Sub total ) , 

Pd_foreclo_A is Subtotal + A. 

get_bkl iqreo_n( I ,bkliqreo,bkliqreo_n, 

CBkl iqreo_N/l .01 ) 

findall(bkliqreo,data(_,bkliqreo,_,_,_,_,_,_,_,_),L) 
length (L,Bkliqreo_N) ,gc(full ) . 
get_bkliqreo_a( I ,bkliqreo,bkliqreo_a, 

CBkl iqreo_A/l .01):- 

f i ndal 1 ( Amount ,data(_,bkliqreo, Amount » _ » _ ) 
A ) , 

total_bkliqreo_a(A,Bkliqreo_A) , gc ( f u 1 1 ) . 
to ta 1 _bk 1 i qr eo_a ( C 1 » 0 ) : - !. 

total_bkliqreo_a(CA!Ll ,Bkliqreo_A) 
total_bkl iqreo_a(L)Sub total ) , 

Bkliqreo_A is Subtotal + A. 



get_set t led_n ( I , se t t 1 ed , se t t 1 ed_n , 

CSett led_N/ 1 .01 ) 

fi nd all (settled,data(_, settled, ,L) , 

1 eng th (L, Settled _N) ,gc(full ) . 
get_settled_a( I ,settled,settled_a, 

[ Sett 1 ed_A/ 1 .01):- 

f i nda 1 1 ( Amount ,data(_, settled, Amount , _ , _ ) , 
total_settled_a(A, Sett 1 ed_A ) , gc ( f u 1 1 ) . 
total_settled_a( C 1 ,0 ) :- !. 

total_settl ed_a ( C A ! L 1 , Se ttled_A) :- 
to ta 1 _set t 1 ed_a ( L , Sub to ta 1 ) , 

Settled_A is Subtotal + A. 



qet_bk_adj_pln_n( I ,bk_adj_pln,bk_adj_pln_n, 
CBk_ad j_pln_N/l .01 ) :- 

fi nd all(bk_ ad j _p In, data(_,bk_adj_p In, 

L) , 

length ( L , Bk_ad j _p 1 n_N ) , gc ( f ul 1 ) . 
get_bk_adj_pln_a( I ,bk_adj_pln,bk_adj_pln_a, 



65 



CBk_ad j p 1 n_A/ 1 .03 ) 

f i nda 1 1 ( Amount , da ta ( _ , bk_ad j_p In, Amount ,_,_)- 
, A) , 

total _bk_ ad j_pln_a(A, Bk_ad j_p ln_A ) , gc ( f ul 1 ) . 
to tal_bk_ad j_p ln_a ( C 3 , 0 ) : - l. 
total _bk_ad j_pln_a(LA!L3,Bk_adj_pln_A) : — 
total_bk_ad j_p ln_a C L , Sub to ta 1 ) , 

Bk_adj_pln_A is Subtotal + A. 



ge t_scn 1 _nwloc_n ( I , sen 1 _nwloc , sen 1 _nw loc_n , 
CScnl_nwloc_N/ 1 .03 ) 

f i nda 1 1 ( scnl_nwloc , data ( _ , scnl _nw loc - 

L) , 

length(L,Scnl_nwl oc_N ) , gc ( f u 1 1 ) . 
get_scnl_nwloc_a( I , scnl _nw loc ,scnl_nwloc_a, 
CScnl_nwloc_A/ 1 .03 ) 

f i ndal 1 ( Amount , data ( _ , scnl _nw loc, Amount ,_,_)- 
, A) , 

total_scnl_nwloc_a(A,Scnl_nwloc_A) , gc < ful 1 ) . 
total_scnl_nwloc_a ( C 3 ,0) !. 
to tal _scnl _nwloc_a ( C A ! L3 , Scnl _nw loc_A ) : - 
to tal_scnl_nwloc_a(L, Sub total ) , 

Scnl_nwloc_A is Subtotal + A. 



get_co_now_pay_n ( I , co_now_pay , co_now_pay_n , 
[Co_now_pay_N/ 1.03) 

f i nda 1 1 ( co_now_pay , data(_,co_now_p ay, 

L) , 

leng th ( L , Co_now_pay_N ) , gc ( f u 1 1 ) . 
get_co_now_pay_a ( I , co_now_pay , co_now_pay_a , 
CCo_now_pay_A/l .03 ) 

f i ndal 1 ( Amount , da ta ( _ , co_now_pay »_»_»_)_»_) Amount 
, A) , 

total_co_no«A)_pay_a( A , Co_now_pay_A ) , gc (ful 1 ) . 
total_co_now_pay_a < L 3 ,0) !. 
total _co_no w_p ay _a( CAIL3 ,Co_now_pay_A) 
total_co_now_pay_a(L,Subtotal ) , 

Co_now_pay_A is Subtotal + A. 



get_fore_proc_n ( I ,fore_proc, fore_proc_n , 

CFore_proc_N/ 1.03) 

f i nd all ( fo re_p roc, data(_,fore_p roc, ,L) , 
length (L,Fore_proc_N) , gc (ful 1 ) . 
get_fore_proc_a( I ,fore_proc,fore_proc_a, 

CFore_proc_A/l .03 ) 
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f i nda 1 1 ( Amount ,data(_,fore_proci_,_,_,_,_, Amount , , _ ) , 

A) , 

total _+ore_proc_a(A,Fore_proc_A) , gc ( f ul 1 ) . 
total_fore_proc_a( [ ] ,0) !. 
total _fore_proc_a ( C A I L] , Fore_proc_A ) : - 
to ta 1 _fore_proc_a ( L , Sub to tal ) , 

Fore_proc_A is Subtotal + A. 



get_gov_claim_n( I ,gov_claim,gov_claim_n, 

LGo v_c 1 a i m_N/ 1.0]):- 

f i nda 1 1 (gov_claim, data(_, gov _claim, ,L) 

1 eng th (L,Gov_claim_N) ,gc (ful 1 ) . 
get_gov_claim_a( I ,gov_claim ) gov_claim_ai 
CGov_claim_A/l .0] ) : - 

f i nd all ( Amount, data(_,gov_claim, Amount , _ , _ ) , 
A ) , 

total_gov_claim_a(A,Gov_claim_A) ,gc(full ) . 
total_gov_claim_a( [ ] ,0) !. 
total_gov_claim_a( CA!L] ,Gov_claim_A) : — 
total_gov_claim_a(L, Subtotal ) , 

Gov_claim_A is Subtotal + A. 



get_c 1 ose_np_aa_n ( I , c lose_np_aa , c lose_np_aa_n , 

CC 1 ose_np_aa_N/ 1 . 0 ] ) :- 

f i ndal 1 ( c lose_np_aa , data ( _ , c lose_np_aa 
) ,L) , 

length(L,Close_np_aa_N) ,gc(ful 1 ) . 
get_c'lose_np_aa_a ( I ,close_np_aa,c lose_np_aa_a , 
CClose_np_aa_A/l .0] ) : - 

f i ndal 1 ( Amount ,data(_,close_np_a a, Amount , _ , 
) , A ) , 

to tal_close_np_aa_a(A, Close _np_aa_A) , gc ( f u 1 1 ) . 
total_close_np_aa_a! [] ,0) l. 
total_c lose_np_aa_a ([AIL], C 1 ose_np_aa_A ) : - 
total_close_np_aa_a(L,Subtotal ) , 

Close_np_aa_A is Subtotal + A. 



get _scn 1 _n ( I ,scnl ,scnl_n, 

CScnl _N/ 1 .0] ) : - 

f indall (scnl,data(_,scnl,_,_,_,_,_,_,_,_),L), 
length(L,Scnl_N) , gc ( fu 1 1 ) . 
get_scnl_a( I ,scnl ,scnl_a, 

LScnl _A/ 1.0]):- 

f i nda 1 1 ( Amount ,data(_,scnl >_>_>_>_>_> Amount A ) , 
total_scnl_a(A,Scnl_A) ,gc(ful 1 ) . 
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to ta 1 _scn 1 _a ( L 3 , O ) : - 1 . 

total_5cnl_a( L A ! L 3 ,Scnl_A) s - 

total_scni_a(Lj Subtotal ) , 
Scnl_A is Subtbtal + A. 



get_Ted_tax_ln_n( I , f ed_tax_ 1 n,ted_tax_ln_n, 
LFed_tax_ln_N/ 1.03):- 

tindail ( fed_tax_ln,data(_, fed_tax_ In, 

L) , 

iength(L,f-ed_tax_l n_N ) , gc ( f u 1 1 ) . 
get_red_tax_ln_a( I ,fed_tax_ln, ted_tax_ln_a . 

L F ed_tax_l n_A/ 1.03):- 

t i nda 1 1 ( Amount ,data(_,fed_tax_ln, Amount , _ , 
, A) , 

total_f ed_tax_ln_a( A,Fed_tax_ln_A) ,gc(full ) . 
to t a 1 _f ed_tax_ 1 n_a ( C 3 , 0 ) : - 1. 

total_fed_tax_ln_a< C A ! L 3 ,Fed_tax_l n_A ) : - 
to ta 1 _f ed_tax_ 1 n_a ( L , Sub to ta 1 ) , 

Ped_tax_ln_A is Subtotal + A. 



get_fed_tax_rel_n( I ,fed_tax_rel ,fed_tax_rel_n, 
tFed_tax_rel_N/ 1 .03 ) : — 

find all (fed_tax_rel ,data(_,fed_tax_rel 
) ,L ) , 

1 eng th(L,hed_tax_rel_N) , gc ( f ul 1 ) . 
get_fed_tax_rel_a( I ,fed_tax_rel , fed_tax_rel_a, 
LI-ed_tax_rel_A/ 1.03):- 

t i nda 1 1 ( Amount ,data(_,fed_tax_rel Amount , 

) , A) , 

total_fed_tax_rel_a(A,Fed_tax__rel_A) , gc ( f u 1 1 ) . 
total _f ed_tax_rel _a ( C 3 5 0 ) : — . 

total _fed_tax_rel_a( CA!L3 ,Fed_tax_rel _A ) : - 
to ta 1 _f ed_ ta x_re 1 _a ( L , Sub to t a 1 ) , 

Fed_tax_re 1 _A is Subtotal + A. 



get_ judgmt_sat_n( I , judgmt_sat, j udgm t _sa t_n , 
LJudgmt_sat_N/l .03 ) :- 

t indall ( judgmt_sat,data(_, judgmt_sat, 

L) , 

leng th ( L , Judgmt_sat_N ) , gc ( f u 1 1 ) . 
get_judgmt_sat_a( I , judgmt_sat, judgmt_sat_a , 
LJudgmt_sat_A/l .03 ) :- 

t i nda 1 1 ( Amount , da ta ( _ , j udgm t _sa t , Amount » _ , 
, A ) , 

total_judgmt_sat_a(A,Judgmt_sat_A) , gc ( f u 1 1 ) . 
total __ judgmt_sat_a ( C 3 , 0 ) : - !. 
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total_ judgmt_sat_a( CAIL3 , Judgmt_sat_A ) :- 
to tal_judgmt_sat_a(L, Sub total ) , 
Judgmt_sat_A is Subtotal + A. 



get_judg_vacat_n( I , judg_ vac at , j ud g _ vac a t_n , 

C Judg_vacat_N/ 1.03) : - 

findal 1 ( judg_vacat , data ( _ , judg_vacat 
L) , 

length(L, Judg_vacat_N) , gc ( f ul 1 ) . 

get_ judg_vacat_a ( I , judg_vacat , judg_vacat_a , 

[Judg_vacat_A/ 1.03);- 

f i nda 1 1 ( Amount * da ta ( _ , j udg_vacat , •> Amount , _ 

, A ) , 

total_ judg_vacat_a( A, Judg_vacat_A ) , gc ( f u 1 1 ) . 
total _ judg_vacat_a< C 3 , 0 ) : - l. 
total_judg_vacat_a( CA1L3 , Judg_vacat_A ) : - 
total _ judg_vacat_a ( L , Sub total ) , 

Judg_vacat_A is Subtotal + A. 



get_mech_l ien_n( I ,mech_l ien,mech_l ien_n, 

Chech _1 ien_N/1.03):- 

findall (mech_li en , data ( _ , mech_l ien, 

length(Li hech_ lien_N) ,gc(full) . 
get_mech_l ien_a( I ,mech_l ien,mech_l ien_a, 

CMech_l ien_A/ 1.03):- 

f inda 1 1 ( Amount , data ( _ , mech_ 1 ien, Amount , _ , 
A) , 

total_mech_l ien_a(A,Mech_l i en_A ) , gc ( f u 1 1 ) . 
to ta 1 _mech_ 1 i en_a ( C 3 , 0 ) : - l. 
total_mech_l ien_a( CA1L3 , hech_l ien_A ) : - 
total _mech_ 1 ien_a(L, Subtotal ) , 

Mech_lien_A is Subtotal + A. 



get_mech_rele_n( I ,mech_rele,mech_rele_n 1 
CMech_rele_N/l .03 ) ;- 

findal 1 ( mech_re 1 e , da ta (_, mech_re 1 e ) 
length ( L , hech_re 1 e_N ) , gcCfull 5 . 
get_mech_re le_a ( I •> mech_re 1 e •> mech_re 1 e_a •, 

Lhech_rel e_A/ 1.03) : - 

findal 1 ( Amount , data ( _ , mech_rele, _ , _ Amount , 

A ) , 

total _mech_rel e_a ( A * hech_r e 1 e_A ) , gc (ful 1 ) . 
t o ta 1 _mech_re le_a ( C 3 , 0 ) : - l. 
total _mech_r e 1 e_a ( C A ! L 3 ,Mech_rele_A) :- 
to ta 1 _mech_re 1 e_a ( L » Sub to ta 1 ) * 
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Mech_re 1 e_A is Subtotal + A. 



ge t_mn_m tg_f i 1 _n ( I , mn_mtg_f i 1 , mn_mtg_f i 1 _n , 

CMn_mtg_f i 1_N/ 1.0]):- 

findall(mn_mtg_fil,data(_,mn_mtg_fil, 

L) , 

leng th ( L , Mn_mtg_f il_N) ,gc(full) . 
get_mn_mtg_f i l_a< I , mn_mtg_f i 1 , mn_mtg_f i l_a, 
CMn_mtg_fil_A/l .0] ) : - 

f i ndal 1 ( Amount ,data(_,mn_mtg_fil Amount , _ , _ ) 
,A) , 

total_mn_mtg_f i 1 _a ( A , Mn_mtg_f i 1 _A ) ,gc (ful 1 ) . 
to tal _mn_mtg_f i l_a ( C ] , 0 ) : - !. 
total_mn_mtg_fil_a( C A ! L ] , Mn_mtg_f i 1 _A ) : - 
total _mn_mtg_f i 1 _a ( L , Subtotal ) , 

Mn_mtg_fil_A is Subtotal + A. 



get_nt_respon_n ( I •> nt_respon > nt_respon_n , 

[Nt_respon_N/l .0] ) 

findall<nt_respon,data(_, nt_respon , ,L) 

length(L,Nt_respon_N) ,gc(full ) . 
get_nt_respon_a ( I , nt_respon , nt_respon_a , 

[Nt_respon_A/ 1 .0]):- 

f i ndal 1 ( Amount ,data(_,nt_respon, Amount , _ , _ ) , 
A) , 

total_nt_respon_a(A, Nt_respon_A ) , gc (full) . 
total_nt_respon_a(C]jO) 1. 
total _nt_respon_a ( CA!L] , Nt_respon_A ) : - 
total_nt_respon_a(L, Subtotal ) , 

Nt_respon_A is Subtotal + A. 



get_stat_tx_ln_n( I ,stat_tx_ln,stat_tx_ln_n, 
CStat_tx_ln_N/ 1 .0] ) :- 

f indal 1 (stat_tx_ln,data(_,stat_tx_ln,_,_,_,_,_,_,_,_) , 
L ) , 

length ( L , S ta t _t x_ 1 n_N ) , gc (ful 1 ) . 
get_stat_tx_ln_a( I ,stat_tx_ln,stat_tx_ln_a, 
CStat_tx_ln_A/l .0]):- 

f i nda 1 1 ( Amount ,data(_,stat_tx_ln, Amount , _ , _ ) 
, A) , 

total_stat_tx_ln_a(A,Stat_tx_ln_A) > gc ( f u 1 1 ) . 
total_stat_tx_ln_a( Cl ,0) >. 
total_stat_tx_ln_a(CA!LD,Stat_tx_ln_A):- 
total_stat_tx_ln_a(L, Sub total ) , 

Stat_tx_ln_A is Subtotal + A. 
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get_sta_tx_rel_n( I ,sta_tx_rel ,sta_tx_rel_n, 

CSta_tx_rel_N/l .0] ) : - 

fi nd al 1 (st a_ tx _r el, data(_, st a_tx_r el, 

L ) , 

length (L,Sta_tx_rel _N.) , gc ( f ul 1 ) . 
get_sta_tx_rel_a( I ,sta_tx_rel ,sta_tx_rel_a, 

CSta_t x r e 1 _ A/ 1 . 0] > :- 

f indal 1 ( Amount ,data(_,sta_tx_rel,_,_,_ Amount 
, A) , 

total_sta_tx_rel_a( A,Sta_tx_rel_A) ,gc( f ul 1 ) . 
totai_sta_tx_rel_a( C ] , 0) : - !. 
total_sta_tx_rel_a( C A ! L D , S ta_t x_re 1 _A ) : - 
total_sta_tx_rel_a(L, Sub to t a 1 ) , 

Sta_tx_rel_A is Subtotal + A. 



get_suit_di smd_n ( I ,suit_di smd , sui t_d i smd_n , 
CSuit_dismd_N/l .0] ) :- 

find all (suit_dismd , data(_, su it _dismd, 

L ) , 

length ( L , Sui t_d i smd_N ) , gc ( f ul 1 ) . 

get_sui t_di smd_a ( I ,suit_di smd , su i t _d i smd_a , 

CSui t_d i smd_A/ 1.0]):- 

t i nda 1 1 ( Amount ,data(_,suit_di smd Amount 

, A ) , 

total_suit_di smd_a ( A , Sui t_d ismd_A ) , gc ( f ul 1 ) . 
total_sui t_d i smd_a( C ] ,0 ) : - 1. 
total_suit_di smd_a ( C A ! L ] , Su i t_d i smd_A ) :- 
total_suit_dismd_a(L, Subtotal ) , 

Suit_dismd_A is Subtotal + A. 



get_wage_asign_n( I ,wage_asign,wage_asign_n, 
CWage_as i gn_N/ 1 .0] ) :- 

fi nd all( wage_ as ign,data(_, wage _asign, 

L ) , 

length (L ,Wage_asign_N) ,gc(ful 1 ) . 
get_wage_asign_a( I ,wage_asign,wage_asign_a, 

C Wageas i gn_A/ 1 .0] ) : - 

f i nda 1 1 ( Amount , da ta ( _ , wage_as ign, Amount 
, A) , 

total _wage_as ign_a ( A , Wage_as ign_A) , gc ( f ul 1 ) . 
total_wage_asign_a( [ 1,0):- 

total_wage_as ign_a ( CA1L] ,Wage_asign_A) s- 
t o t a 1 _wage_as i g n_a ( L , Sub to t a 1 ) , 

Wage_asign_A is Subtotal + A. 
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get_wa_release_n( I , wa_re 1 ease , wa_r e 1 ease_n , 
[Wa_release_N/l .03 ) 

find all (wa_release,data(_,wa_release,_,_,_,_,_,_,_,_) , - 
L ) , 

leng th < L , Wa_r e lease_N ) , gc ( f u 1 1 ) . 
get_wa_release_a( I , wa_re 1 ease , wa_rel ease_a , 
[Wa_release_A/l .03 ) 

f i ndal 1 ( Amount ,data(_,wa_release,_,_,_,_,_, Amount ,_,_)- 
, A ) , 

total_wa_release_a ( A , Wa_r elease_A ) , gc ( f ul 1 ) . 
total_wa_release_a( [3,0):- !. 

total_wa_release_a ( C A ! L3 ,Wa_release_A ) : - 
total _wa_release_a < L , Subtotal ) , 

Wa_release_A is Subtotal + A. 



get_ref i nanced_n ( I refinanced , ref i nanced_n , 

CRef inane ed_N/l .03 ) 

f inda 1 1 ( ref i nanced ,data(_, refinanced, , - 
L) , 

leng th ( L , Ref i na nc ed_N ) , gc ( f u 1 1 ) . 

get _ref i nanced_a < I , ref i nanced , r ef i nanced_a , 

[Ref inanced_A/l .03 ) : - 

f i nda 1 1 < Amount , data ( _ , refinanced, Amount 
, A ) , 

to t al _r ef i nanced _a ( A , Ref i nanced_A ) , gc ( f u 1 1 ) . 
to tal _ref i nanced_a ( [ 3 , 0 ) : - !. 

total_ref inanced_a ( L A ! L3 , Ref i nanced _ A ) : - 
to tal _r ef i nanced_a ( L , Sub to t a 1 ) , 

Refinanced_A is Subtotal + A. 



get _cr _cd_ 1 ost_n < I , cr _cd_ 1 ost , cr _cd_ 1 ost_n , 
CCr_cd_lost_N/l .03) : — 

f i nda 11 (cr_cd_lost,data(_,cr_cd_lost ,- 
L) , 

length(L,Cr_cd_lost_N) , gc ( f ul 1 ) . 
get_cr_cd_lost_a( I >cr_cd_lost ,cr_cd_lost_a, 

[Cr_cd_l ost_A/ 1.03) 

f i nda 1 1 ( Amount ,data(_,cr_cd_lost,_,_,_,_,_, Amount 
, A) , 

total_cr_cd_lost_a(A,Cr_cd_lost_A) , gc (ful 1 ) . 
total_cr_cd_lost_a( [3 ,0) l. 
total_cr_cd_lost_a( CA!L3 , Cr_cd_lost_A ) : - 
total_cr_cd_lost_a(L,Subtotal ) , 

Cr_cd_lost_A is Subtotal + A. 
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get_clos_inac_n( I , clos_inac , c 1 os_ i nac_n , 

CClos_inac_N/l .03 > 

findall(clos_inac,data(_, c los_inac _> ,L) 

length(L,Clos_inac_N) , gc ( f u 1 1 ) . 
get_clos_inac_a( I ,clos_i nac ,clos_i nac_a , 

C Cl os_ i nac_A/ 1.0]) : - 

f i ndal 1 ( Amount , data ( _ , c los_ inac Amount , _ , _ ) , 

A) , 

total _clos_i nac _a ( A ,Clos_inac_A ) , gc ( f u 1 1 ) . 
total_clos_inac_a( C ] ,0) !. 
total _clos_inac_a ( C A ! L3 , Clos_ i nac_A ) : - 
to tal_clos_inac_a(L) Sub total ) , 

Clos_inac_A is Subtotal + A. 



get_transf ersd_n ( I , transfered , transf ered_n , 

CTransf ered_N/ 1 .01 ) 

find all (transfered,data(_, transfered j 

L) , 

length ( L , Transfered _N> , gc ( ful 1 ) . 
get_transfered_a ( I , transfered ,transfered_a, 

CTransf ered_A/ 1 .03):- 

f i nda 1 1 ( Amount , data ( _ , transfered Amount , _ , _ ) 
, A) , 

to tal _ transf ered_a ( A , Tr ansf ered_A ) , gc ( f ul 1 ) . 
to tal _ transf ered_a ( C ], 0 ): - 1. 

total_transfered_a( CA1L3 , Tr ansf er ed_A > : - 
total_transfered_a(L, Subtotal ) , 

Transfered_A is Subtotal + A. 



get_too_new_rt_n ( I , too_new_r t , too_new_r t_n , 
[Too_new_rt_N/l -0D > 

findal 1 ( too_new_rt ,data( too_new_r t, , 
L ) , 

leng th ( L , Too_new_r t_N) ,gc(ful 1 ) . 
get_too_new_rt_a ( I , too_new_r t , too_new_r t_a , 

CT oo_new_rt_A/ 1.0]):- 

f i nda 1 1 ( Amount ,data(_ 9 too_new_rt,_,_,_,_,_, Amount , _ , _ ) 
, A ) , 

total _too_new_rt_a (A,Too_new_rt_A) ,gc(full ) . 
to ta 1 _ too_new_r t_a ( C 3 , 0 ) : - >. . 

total_too_new_rt_a( CA!L3 Joo_new_rt_A) 
to ta 1 _ too_new_r t _a ( L , Sub to t a 1 ) , 

Too_new_rt_A is Subtotal + A. 



get_paid_satis_n( I ,paid_satis,paid_satis_n, 
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CPaid_satis_N/l .03):- 

f i ndal 1 ( pa id_sat i s , data(_,paid_sa tis, _»_)»- 
L) , 

length(L»Paid_satis_N) , gc ( f ul 1 ) . 
get_paid_sati s_a ( I , paid_sat i s , paid_sat i s_a , 
CPaid_satis_A/ 1.03):- 

f i nda 1 1 ( Amount ,data(_,paid_satisj_>_>_>_>_» Amount >_,_)- 
, A) , 

total_paid_satis_a(A, Pa id_sa t i s_A) , gc ( f ul 1 ) . 
to tai _pa id_sat i s_a ( C 3 , 0 ) : - !. 
total._paid_satis_a( C A ! L 3 , Pa id_sat i s_A ) 
total _paid_s at is_a(L, Sub total ) , 

Paid_satis_A is Subtotal + A. 



get_paid_acct_n( I , paid_acct ,paid_acct_n, 

CPaid_acct_N/ 1.03):- 

f i nda 1 1 ( paid_acc t,data(_,paid_acct,_,_,_,_»_,_»_,_) »L) , 

length ( L , Pa i d _acc t_N ) ,gc ( ful 1 ) . 
get_pa id_acct_a ( I ,paid_acct ,paid_acct_a, 

C Pa id_acc t_A/ 1.03):- 

f i ndal 1 ( Amount , data ( _ , paid_acct Amount , _ , _ ) , - 
A) , 

total_paid_acct_a(A, Pa id_acct _A ) , gc ( f u 1 1 ) . 
total _paid_acct_a ( C 3 , 0 ) : - !. 
total_paid_acct_a( CA1L3 ,Paid_acct_A) :- 
total_paid_acct_a(L, Subtotal ) , 

Paid_acct_A is Subtotal + A. 



get_deceased_n ( I , deceased ,deceased_n, 

[Deceased_N/l .03 ) ;- 

f i ndal 1 ( deceased , data ( _ , deceased >L) , 

length ( L , Deceased _N ) , gc ( f ul 1 ) . 
get_deceased_a ( I » deceased , deceased_a , 

CDeceased_A/ 1.03):- 

1 1 ndal 1 ( Amount , data ( _ , deceased , > Amount , _ , _ ) , - 
A ) , 

to tal _deceased_a ( A , Deceased _ A ) , gc ( f u 1 1 ) . 
total_deceased_a( [ 3,0):- !. 

total _deceased_a ( C A ! L3 , Deceased _A):- 
total_deceased_a(L,Subtotal ) , 

Deceased_A is Subtotal + A. 



get_cr_ln_clos_n( I ,cr_ln_clos,cr_l n_c los_n , 
CCr_ln_c 1 os_N/ 1 .03)1- 
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f indal 1 ( cr_ 1 n_c 1 os , data cr_ 1 n_c 1 os - 
L) , 

length (L,Cr_ln_clos_N) ,gc(full ) . 
get_cr_ln_clos_a( I ,cr_ln_clos,cr_ln_c 1 os_a , 

CCr _ 1 n_c los_A/l .0] ) : - 

f i nda 1 1 ( Amount ,data(_,cr_l n_c los, Amount 
, A) , 

total_cr_ln_clos_a(A,Cr_ln_c 1 os_A ) , gc < f ul 1 ) . 
total_cr_ln_clos_a( [] ,0) l. 
total_cr_ln_clos_a( C A ! L 3 ,Cr_ln_clos_A) s - 
total_cr_ln_clos_a (L, Sub total ) , 

Cr_ln_clos_A is Subtotal + A. 



get_redmd_repo_n ( I >redmd_repo , redmd_repo_n , 
CRedmd_repo_N/ 1 . 03 ) : - 

findal 1 (r ed md _repo, data<_, red md_repo>_, , - 
L) , 

length ( L , Redmd_repo_N ) , gc ( f ul 1 ) . 
get_redmd_repo_a( I ,redmd_repo,redmd_repo_a, 
CRedmd_repo_A/ 1 . 0 ] ) 

f inda 1 1 ( Amount ,data(_,redmd_repOi_,_,_,_,_, Amount 
, A) , 

total_redmd_repo_a(A,Redmd_repo_A) , gc ( ful 1 ) . 
to ta 1 _redmd_repo_a < C ] , 0 ) : - !. 

to ta 1 _r edmd_repo_a ( C A ! L D , Redmd_r epo_A ) : - 
total_redmd_repo_a(L)Subtotal ) , 

Redmd_repo_A is Subtotal + A. 



ge t_cilir _was_co 1 _n ( I ,cur_was_col ,cur_was_col_n, 
[Cur_was_co 1 _N/ 1 .OH) : - 

find all (cur_was_col 5 data(_j cur_was_co 1 
) ,L) , 

length(L,Cur_was_col_N) , gc < f ul 1 > . 
get_cur_was_col_a( I ,cur_was_col , cur_was_co 1 _a , 
LCur_was_co 1_A/1.03):- 

f i nda 1 1 ( Amount ,data(_»cur_was_col >_»_>_>_>_» Amount 
) , A ) , 

total_cur_was_col_a(A,Cur_was_col_A) , gc ( f u 1 1 ) . 
total_cur_was_col_a( [ 1,0):- l. 
total _cur_was_co l_a( [A! L] 5 Cur _was_co 1 _A ) 
to t a 1 _cur _was_co 1 _a ( L * Sub to t a 1 ) , 

Cur_was_col_A is Subtotal + A. 



get_cr_ln_rnst_n( I ,cr_ln_rnst,cr_ln_rnst_n, 
CCr _ 1 n_r nst_N/ 1 . 03 ) : - 
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find all (cr_ln_rnst,data(_,cr_ln_rnst, , - 
L) , 

1 eng th (L»Cr_ln_rnst_N) ,gc(ful 1 ) . 
get_cr_ln_rnst_a( I ,cr_ln_rnst , cr _ 1 n_rnst_a , 
CCr_ln_rnst_A/l .01):- 

f i nda 1 1 ( Amount ,data(_,cr_ln_r ns t Amount ,_,_)- 

, A) , 

total_cr_ln_rnst_a( A,Cr_l n_rnst_A ) , gc ( f ul 1 ) . 
total_cr_ln_rnst_a( [ ] ,0) !. 
total _cr_ln_r ns t_a( C A ! L 1 ,Cr_ln_rnst_A) : - 
to tal_cr_ln_rnst_a(L, Sub total ) , 

Cr_ln_rnst_A is Subtotal + A. 



get_cur_was_for_n ( I , cur_was_for , cur_was_for_n , 
[Cur_was_for_N/l .01 ) :- 

f i ndal 1 ( cur_was_f or , data ( _ ,cur_was_for 
) ,L) , 

1 eng th ( L , Cur_was_for_N ) , gc ( f u 1 1 ) . 
get_cur_was_for_a( I )Cur_was_for , cur_was_f or _a » 
CCur_was_f or _A/ 1.01):- 

f i ndal 1 ( Amount , data ( _ , cur_was_for Amount , _ , 
) , A) , 

to tal _cur_was_f or_a ( A , Cur_was_for_A ) , gc ( f u 1 1 ) . 
total_cur_was_for_a( [1,0) :- !. 
to tal _cur_was_f or_a ( CA1L1 ,Cur_was_for_A) :- 
total_cur_was_for_a(L,Subtotal ) , 

Cur_was_for_A is Subtotal + A. 



get_pd_not_aa_n ( I ,pd_not_aa,pd_not_aa_n, 

CPd_not_aa_N/ 1.01):- 

f i nda 1 1 ( pd_no t_aa ,data(_,pd_not_aa, ,L) , 

1 eng th ( L , Pd_no t_aa_N ) , gc ( f ul 1 ) . 
get_pd_not_aa_a ( I , pd_no t_aa , pd_no t_aa_a , 

CPd_not_aa_A/ 1 . 01 ) :- 

f i ndal 1 i Amount , data ( _ , pd_no t_aa , > Amount , _ , _ ) , - 
A ) , 

to ta 1 _pd_no t_aa_a ( A , Pd_not_aa_A ) , gc ( f ul 1 ) . 
to ta 1 _pd_no t_aa_a ( [ 1 , 0 ) : - i . 
total_pd_not_aa_a( CAIL1 ,Pd_not_aa_A) : - 
total _pd_not_aa_a(L, Subtotal ) , 

Pd_not_aa_A is Subtotal + A. 



get_city_tx_ln_n( I ,city_tx_ln,city_tx_ln_n, 
CCity_tx_ln_N/l .01 ) :- 
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f indal 1 ( c i ty_t x_ 1 n , data <_, c i ty_t x_ 1 n - 
L) , 

length ( L , C i ty_t x_ 1 n_N ) ,gc ( ful 1 ) . 

9 et _ c ity_tx_ln_a( I )Ci ty_tx_ln, ci ty_tx_ln_a, 

CCi ty_tx_ln_A/ 1.03):- 

f indal 1 (Amount , data <_, c i ty_tx_l n Amount ,_,_) - 
, A ) . 

total _city_tx_ln_a(A,City_tx_l n_A ) ,gc (ful 1 ) . 
total_city_tx_ln_a([],0) !. 
to tal _c i ty_ t x_ 1 n_a ( C A ! L3 , C i t y_t x_ 1 n_A ) : - 
total _city_tx_ln_a(L, Subtotal ) , 

City_tx_ln_A is Subtotal + A. 



get_city_tx_rel_n( I ,city_tx_rel ,city_tx_rel_n, 
CCity_tx_rel_N/l .0] ) :- 

fi nd all(city_tx_r el, data(_,city_tx_r el, 

) ,L) , 

1 eng th(L,City_tx_rel_l\J) ,gc(full ) . 
get_city_tx_rel_a( I ,city_tx_rel ,city_tx_rel_a, 

CCi ty_tx_rel_A/ 1.03):- 

f i nda 1 1 ( Amount ,data(_,city_tx_rel Amount , _ , 
) , A) , 

total_city_tx_rel_a(A,City_tx_rel_A) , gc < f ul 1 ) . 
total _c i ty_tx_rel_a ( C 3 ,0 ) : - !. 
total_city_tx_rel_a( CA1L3 ,City_tx_rel_A) : - 
total _city_tx_rel_a(L, Subtotal ) , 

City_tx_rel_A is Subtotal + A. 



get_consel _ser_n ( I ,consel_ser , conse 1 _ser_n , 

CConse 1 _ser_N/ 1 .03):- 

f i nda 1 1 ( conse l_ser ,data(_ , conse 1 _ser - 
L) , 

length (L,Consel_ser_N) , gc ( f u 1 1 ) . 
get_consel _ser_a ( I , conse 1 _ser , conse 1 _ser_a , 

CConse l_ser_A/l .03):- 

f i nda 1 1 ( Amount , data ( _ , conse 1 _ser Amount 
, A) , 

total _consel _ser_a ( A , Conse 1 _ser_A ) , gc ( f ul 1 ) . 
to ta 1 _conse 1 _ser_a ( C 3 , 0 ) : - l. 
total _conse 1 _ser _a ( CA!L3 ,Consel_ser_A) 
t o ta 1 _conse 1 _ser_a ( L , Sub to t a 1 ) , 

Consel_ser_A is Subtotal + A. 



get_co_tax_ln_n( I ,co_tax_ln, co_tax_ln_n , 
CCo_tax_ 1 n_N/ 1 .03 ) 
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findal 1 (co_tax_ln,data(_,co_tax_ln,_,_,_,_,_,_,_,_) , L ) , 

1 eng th ( L , Co_tax_ln_N ) ,gc(full) . 
get_co_tax_ln_a( I ,co_tax_ln,co_tax_ln_a, 

CCo_tax_ln_A/l .0] ) : - 

f i nda 1 1 ( Amount ,data(_,co_tax_ln,_,_,_,_,_, Amount , _ , _ ) , ~ 
A) , 

total_co_tax_ln_a(A,Co_tax_ln_A) , gc ( f u 1 1 ) . 
total_co_tax_ln_a( [ ] ,0) 1. 
total _co_tax_ln_a( [AIL] , Co_tax_ln_A ) : - 
total_co_tax_ln_a(L,Subtotal ) , 

Co_tax_ln_A is Subtotal + A. 



get_co_tax_rel_n( I ,co_tax_rel iCO_tax_rel_n, 

LCo_tax_rel _N/ 1 .0] ) :- 

findall (co_tax_rel ,data(_,co_tax_r el, - 
L) , 

length (L,Co_tax_rel _N ) , gc ( f u 1 1 ) . 
get_co_tax_rel_a( I ,co_tax_rel ,co_tax_rel_a, 
LCo_tax_rel_A/l .0] ) 

f i nda 1 1 ( Amount ,data(_,co_tax_rel *_»_*_*_*_* Amount 
, A) , 

total_co_tax_rel_a(A,Co_tax_rel_A) , gc ( f ul 1 ) . 
total_co_tax_rel_a( Cl ,0) !. 
total_co_tax_rel_a( [AJLl ,Co_tax_rel_A) 
total _co_tax_rel_a(L, Sub total ) , 

Co_tax_rel_A is Subtotal + A. 

get_pb_cut_of f _va 1 ( I , cut_off, 
pb_cut_off_val , CPB_CUT_DFF_VAL/1 .0] ) 

PB_CUT_DFF_VAL is 400 , gc ( f u 1 1 ) . 

get_extremely_high_cut_off_val ( I , cut_off , 
extremely_high_cut_off_val , 

CEXTREMELY_HIGH_CUT_OFF_VAL/ 1 .0] ) :- 

EXTREMELY_H I GH_CUT_0FF_VAL is 200 , gc ( f u 1 1 ) . 

get_very_h igh_cut_off_val ( I , cut_off , 
very_h i gh_cut_of f _va 1 , 

CVERY_HIGH_CUT_DFF_VAL/ 1 .03 ) »- 
VERY_H I GH_CUT_QFF_VAL is 1 70 , gc ( f u 1 1 ) . 

get_h igh_cut_of f _val ( I , cut_off, high_cut_off_val , 
LHIGH_CUT_QFF_VAL/1 .01 ) 

HIGH_CUT_0FF_VAL is 1 20 , gc ( f u 1 1 ) . 

get_moderately_high_cut_off_val ( I , cut_off , 
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moder a te ly_h i gh_cut _of f _va 1 , 
CMQDERATELV_HIGH_CUT_OFF_VAL/ 1.01) s- 

MODERATELY_HI GH_CUT_OFF_VAL is 1 00 , gc ( f u 1 1 ) . 

get_low_cut_off_val ( I , 

cut_off , low_cut_off_val , CLOUI_CUT_OFF_VAL/ 1.03):- 
L0W_CUT_0FF_VAL is 80,gc(full). 

get_very_low_cut_off_val ( I , 
cut_of f ,very_low_cut_off_val , 

C VERY_LOWJ_CUT_OFF_VAL/ 1.01):- 

VERY_LOW_CUT_OFF_VAL is 10,gc(full). 

ge t _ex t reme 1 y_ 1 ow_cut_of f _va 1 ( I , cut_off , 
extremely_low_cut_off_val , 
CEXTREMELY_L0W_CUT_0FF_VAL/1 .03 ) 

EX TREMELY_LOU)_CUT_OFF_VAL is 40,gc(full). 



/* CRD13.RUL (RULES) */ 

/* This section of code contains synonyms and 90 if- 
then rules *•/ 

report ( cone luded of conclusion) = $The person is 
order ( cone luded of conclusion) = Cr,g3. 
precalc ( per sonal ) = C ssn , 2 ip » m_s ta tus 3 . 
set ( customer _pr of i 1 e_ i nf o of perserec ) = 

customer _pr of i 1 e_ i nf o . 

set ( superpayer_i nf o of perserec) = superpayer_info. 
set ( bankrup t_i nf o of perserec) = bankr up t_ i nf o . 
set ( weight_pt_info of perserec) = we i gh t _p t_ i nf o . 
set (cut_of f _info of perserec) = cut_of f _ i nf o . 

name ( we i gh t _p t_ i nf o of perserec) = ignore, 
name ( cu t _of f _ i nf o of perserec) = ignore. 

quest i on ( pb_cut_off_va 1 of cutoff) = 
get_pb_cut_of f _va 1 . 

quest ion< extremely_h i gh_cut_o f f _va 1 of cut_off) = 
get_ex tr eme 1 y_h i gh_cut_of f _va 1 . 
ques t i on ( ver y_h i gh_cut _of f _va 1 of cut_off) = 
get_very_h igh_cut_of f _va 1 . 
quest i on < h i gh_cut _of f_va 1 of cut_off> = 
get_h igh_cut_of f _val . 

ques t i on ( moder a te 1 y_h i gh_cu t _of f _va 1 of cut_off) = 
get_moderately_high_cut_off_val . 
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quest ion( low_cut_off_val of cut_off ) = 
get_low_cut_off_val . 

quest ion ( very_low_cut_off_val of cut_off) = 
get_very_low_cut_off_val . 
ques t i on ( ex treme 1 y_ 1 ow_cut _of f _va 1 of cut_off ) = 
get_extremely_low_cut_off_val . 

set (conclusion_info of perserec ) = cone lus i on_ i nf o . 
set < personal _info of cus tomer_prof i 1 e_ i nf o of 
perserec ) = 
personal _i nf o . 

set(trw_info of cus tomer _prof i 1 e_ i nf o of perserec) = 
trw_info . 

set (del inq_info of trw_info of customer _prof i 1 e_ i nfo of 
perserec) = delinq_info. 
set ( d_60_ i nf o of delinq_info of trw_info of 

customer_prof i le_info of perserec ) = d_60_info. 
set (d_90_info of delinq_info of trw_info of 

customer_prof i le_inf o of perserec) = d_90_info. 
set ( d_l 20_ i nf o of delinq_info of trw_info of 

cus tomer _pr of i 1 e_ i nfo of perserec) = d_120_info. 
set (d_150_info of delinq_info of trw_info of 

customer _prof i le_info of perserec) = d_150_info. 
set < d_l 80_ i nf o of delinq_info of trw_info of 

customer_pr of i le_info of perserec) = d_180_info. 
set ( cur_was_ i nf o of trw_info of customer_prof i le_info 
of 

perserec ) = cur_was_info. 
set (c_w_60_info of cur_was_info of trw_info of 

customer _prof i 1 e_ i nfo of perserec) = c_w_60_info. 
set ( c_w_90_ inf o of cur_was_info of trw_info of 

customer_prof i le_info of perserec) = c_w_90_info. 
set ( c_w_120_i nf o of cur_was_info of trw_info of 

customer _prof i 1 e_i nfo of perserec ) = c_w_120_info . 
set ( c_w_ 1 50_ i nf o of cur_was_info of trw_info of 

customer _prof i 1 e_ i nfo of perserec) = c_w_150_info . 
set (c_w_180_info of cur_was_info of trw_info of 

customer _pr of i 1 e_ i nfo of perserec) = c_w_180_info . 
set ( pdbyd 1 r _ i nf o of trw_info of 

customer _prof i le_i nfo of perserec) = pdbyd 1 r_ i nfo . 
set (col l_acct_info of trw_info of customer_prof i 1 e_ inf o 
of 

perserec)= col l_acct_info. 
set ( char ge_off_ i nfo of trw_info of 
customer_prof i le_info of 

perserec ) =charge_of f _ i nf a . 
set ( pd _co 1 1 _ac_i nf o of trw_info of 
cus tomer _pr of i 1 e_ i nfo of 

perserec) = pd_co 1 1 _ac_ i nf o . 
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se t ( i nqu iry _ i nf o of trw_info of customer_prof i le_inf o 
of 

perserec) = inquiry_info . 

sst ( cone lus i on_ i nf o of perserec) = cone 1 us i on_ i nf o . 
set (foreclosure_info of trw_info of 
customer _prof i le_info of 
perserec) = f orec 1 osur e_ i nf o . 
set ( judgment_info of trw_info of customer _pr of i 1 e_ i nfo 
of 

perserec) = judgment_info . 

set ( repo_ i nf o of trw_info of customer_pr of i le_inf o of 
perserec) = repo_info. 
set ( insc laim_inf o of trw_info of 

customer _prof i 1 e_ i nfo of perserec) = 
insc laim_info . 

name( insc laim_info of trw) = ignore. 

question* insclaim_n of insclaim) = get _ i nsc 1 a i m_n . 
question* insclaim_a of insclaim) = get_insc laim_a . 



set ( no tpdaa_ i nf o of trw_info of 

customer_prof i le_info of perserec) = notpdaa_inf o . 
name ( no tpdaa_ i nf o of trw) = ignore, 
quest ion* notpdaa_n of notpdaa) = get_no tpdaa_n . 
quest ion ( notpdaa_a of notpdaa) = get_no tpdaa_a . 

set (volnrepo_info of trw_info of 

customer _profi le_info of perserec) = 
vo 1 nr epo_ i nf o . 

name (vo lnrepo_i nfo of trw) = ignore. 

question* volnrepo_n of volnrepo) = get_vo lnrepo_n . 
quest i on ( vo 1 nrepo_a of volnrepo) = get_volnrepo_a. 



set (curwaspd_info of trw_info of cus tomer _prof i 1 e_ i nf o 
of 

perserec) = curwaspd_info . 
set ( cwpd_info of curwaspd_inf o of trw_info of 

customer_prof i le_info of perserec) = cwpd_info. 
set ( cwpd_30_i nf o of cur waspd_ i nf o of trw_info of 

customer_prof i le_info of perserec) = cwpd_30_ i nf o . 



set l cwpd_30by2_ i nf o of curwaspd_info of trw_info of 
customer _prof i le_info of perserec) = 
cwpd_30by2_ i nf o . 

set ( cwpd_30by3_i nf o of curwaspd_info of trw_info of 
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customer _prof i le_info of perserec) = 
c wpd _30by3_ i nf o . 

set (cwpd_30by4_info of curwaspd_i nf o of trw_info of 
customer_prof i le_info of perserec) = 
cwpd_30by4_info. 

set <cwpd_30by5_info of curwaspd_info of trw_info of 
customer _prof i le_info of perserec ) = cwpd_30by5_info . 
se t < c wpd_30by6_ i nf o of curwaspd_info of trw_info of 
cus tomer _pr of i 1 e_ i nf o of perserec) = cwpd_30by6_ inf o . 



set ( accpd_inf o of trw_info of cus tomer_prof i 1 e_ i nf o of 
perserec) = accpd_info . 

set < accpd_30_i nf o of accpd_info of trw_info of 
customer_prof i 1 e_ inf o of perserec) = 
accpd_30_info . 



.info of 
accpd_30by3_info . 



set < accpd_30by2_info of accpd_info of trw_info of 
customer_prof i le_info of perserec) = accpd_30by2_ inf o . 
set ( accpd_30by3_ i nf o of accpd.info of tr 
customer_pr of i le_info of perserec) 

set < accpd_30by<4_info of accpd_info of trw_info of 
customer_prof i le_info of perserec) = accpd_30by^_ i nf o . 
set ( accpd_30by5_ i nf o of accpd_info of trw_info of 
customer_prof i le_info of perserec) = accpd_30by5_ i nf o . 
set (accpd_30by<£>_info of accpd.info of trw.info of 
cus tomer _pr of i 1 e_ i nfo of perserec) = accpd_30by6_ i nf o . 
set ( pacc_wpd_ i nf o of trw.info of cus tomer.prof i 1 e_ i nf o 
of 

perserec) = pacc_wpd_info . 

set ( pacc_wpd_30_inf o of pacc_wpd_info of trw.info of 
customer.prof ile.info of perserec ) = pacc_wpd_30_ i nf o . 
set ( pacc_wpd_30by23_info of pacc_wpd_info of trw.info 
of 

customer.prof i le.info of perserec > = 
pacc_wpd_30by23_inf o . 

set < pace _wpd_30by^+_ i nfo of pace _wpd _ i nfo of trw.info of 
customer.prof i le.info of perserec) = 
pacc_wpd_30by^_inf o . 

set ( pace _wpd_30by5_ i nfo of pacc.wpd.info of trw.info of 
customer _pr of i 1 e. i nfo of perserec ) = 
pace _wpd_30by5_ i nfo . 

set (pacc_wpd.30by6.info of pacc.wpd.info of trw.info of 
customer _pr of i le_ i nfo of perserec) = 
pacc_wpd_30by<£>_ i nf o . 



set (suit.info of trw.info of 

customer.prof i le.info of perserec ) = suit.info. 
name ( sui t_info of trw) = ignore, 
quest i on ( sui t_n of suit) = get.suit.n. 
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quest ion ( sui t_a of suit) 



= get_suit_a. 



name ( customer_prof i le_info of perserec) = ignore, 
name ( superpayer_ i nf o of perserec) = ignore, 
name ( bankr up t_ i nf o of perserec ) = ignore, 
name ( cone 1 us i on_ i nfo of perserec) = ignore. 
name(personal_info of customer_pr of i 1 e ) = ignore, 
name ( trw_i nfo of customer_prof i 1 e ) = ignore, 

name ( i nqu i ry_ i nfo of trw) = ignore, 
name ( del inq_info of trw) = ignore. 

name ( d_60_ i nfo of delinq) = ignore, 
name ( d_90_ i nfo of delinq) = ignore, 
name ( d_ 1 20_ i nfo of delinq) = ignore, 
name ( d_ 1 50_ i nfo of delinq) = ignore, 
name ( d_ 1 80_ i nfo of delinq) = ignore. 

name ( cur_was_ i nfo of trw) = ignore, 
name ( c_w_60_info of cur_was) = ignore, 
name ( c _w_90_ i nfo of cur_was) = ignore, 
name ( c_w_ 1 £0_ i nfo of cur_was) = ignore, 
name ( c_w_l 50_i nfo of cur_was) = ignore. 
name(c_w_180_info of cur_was) = ignore. 



name C co 1 1 _acc t _i nf o of trw) = 
name(charge_off_info of trw) = 
name ( pd_co 1 1 _ac_ i nfo of trw) = 
name ( f orec 1 osure_i nfo of trw) = 
name ( judgment_ i nfo of trw) = 
name(repo_info of trw) = 
name(pdbydlr_info of trw) 
name(curwaspd_info of trw) = 
name ( cwpd _i nfo of curwaspd ) = 
name ( cwpd_30_i nfo of curwaspd ) 



name ( cwpd _30by2_ i nfo 
name (cwpd_30by3_info 
name ( cwpd_30by4_i nfo 
name ( c wpd_30by5_ info 
name ( cwpd_30by6_ info 



ignore . 
ignore . 
ignore . 
ignore . 
ignore . 
ignore . 

= ignore, 
ignore . 
ignore . 

= ignore. 



of 


cun 


Atasod ) 


= ignore. 


of 


cur 


waspd ) 


= ignore 


o f 


cun 


waspd ) 


= ignore 


of 


cur 


waspd ) 


= ignore 


of 


cun 


waspd ) 


- ignore 



ques t i on ( cwpd_n of cwpd) — get_cwpd_n. 
question(cwpd_a of cwpd) = get_cwpd_a. 
question(cwpd_30_n of cwpd_30) = get_cwpd_30_n . 
quest i on C cwpd_30_a of cwpd_30) = get_cwpd_30_a . 
quest ion ( cwpd_30by2_n of cwpd_30by2) = 
aet_cwpd_30by2_n. 
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quest i on ( cwpd_30by2_a of 

get_cwpd_30by2_a . 

quest ion ( cwpd_30by3_n of 

get _cwpd_30by3_n . 

quest ion ( cwpd_30by3_a of 

get_cwpd_30by3_a . 

question ( cwpd_30by4_n of 

get_cwpd_30by4_n . 

quest ion ( cwpd_30by4_a of 

qet_cwpd_30by4_a . 

ques t ion ( cwpd_30by5_n of 

get_cwpd_30by5_n . 

quest ion ( cwpd_30by5_a of 

get_cwpd_30by5_a . 

quest ion ( cwpd_30by6_n of 

get_cwpd_30by6_n . 

quest i on ( cwpd_30by6_a of 

get_cwpd_30by6_a . 



cwpd_30by2) = 
cwpd_30by3) = 
cwpd_30by3) = 
cwpd_30by4) = 
cwpd_30by4) - 
cwpd_30by5) = 
cwpd_30by5) = 
cwpd_30by6) = 
cwpd_30by6) = 



question(ssn of personal) = get_ssn. 

quest ion ( m_status of personal) = get_m_status . 

questionf zip of personal) = get_zip. 

quest ion ( co 1 l _acct_n of col l_acct ) = get_co 1 1 _acc t_n . 
quest ion ( co 1 1 _acct_a of coll_acct> = get_co 1 1 _acct_a . 



quest ion ( c_w_60_n of c_w_60) = 
quest i on ( c_w_60_a of c_w_60) = 
quest ion ( c_w_90_n of c_w_90) = 
quest ion ( c_w_90_a of c_w_90) = 
quest i on ( c_w_ 1 20_n of c_w_120) 
ques t i on ( c_w_ 1 20_a of c_w_120) 
quest ion ( c_w_150_n of c_w_150) 
quest i on ( c_w_ 1 50_a of c_w_150) 
question(c_w_180_n of c_w_180) 
quest ion ( c_w_ 180_a of c_w_180) 



get_c_w_60_n . 
get _c_w_60_a . 
get_c_w_90_n . 
get _c_w_90_a . 

= get_c_w_180_n 
= get_c_w_lSO_a 
= get _c_w_ 1 50 _n 
= get_c_w_150_a 
= get_c_w_ 1 80_n 
= get_c_w_180_a 



qui 
quest 
quest 
quest 
quest 
quest 
quest 
quest 
quest 
quest 



ion ( d_ 
i on ( d. 
ion ( d_ 
ion ( d. 
i on ( d_ 
i on ( d 
ion ( d_ 
ion ( d_ 
ion ( d_ 
ion ( d 



£0_n of d_60) = 
60_a of d_60) = 
90_n of d _90 ) = 
90_a of d_90) = 
1 S0_n of d_l£0) 
1 E0_a of 
1 50_n of 
1 50_a of 
1 80_n of 
180 a of 



_ 1 20 ) 
_ 1 50 ) 
d_ 1 50 ) 
_ 1 80 ) 
d 180) 



get_d_60_n . 
get_d_60_a . 
get_d_90_n . 
get_d_90_a . 

= get_d_120_n. 
= get_d_120_a. 
= get_d_150_n. 
= get_d_150_a. 
= get_d_180_n. 
= get_d_180_a. 

ignore . 
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name ( accpd_inf o of trw) 



name ( accpd_30_ i nf o of accpd) = ignore, 
name! accpd _30by2_ i nfo of accpd) = ignore, 
name ( accpd _30by3_ i nf o of accpd) = ignore. 
name(accpd_30by4_info of accpd) = ignore, 
name ( accpd_30by5_ i nf o of accpd) = ignore, 
name ( accpd_30by<S_ i nf o of accpd) = ignore. 

quest ion ( accpd_30_n of accpd_30) = get_accpd_30_n . 
quest i on ( accpd_30_a of accpd_30) = get_accpd_30_a . 
quest i on ( accpd_30by2_n of accpd_30by2) = 
qet_accpd_30by2_n . 

quest i on < accpd_30by2_a of accpd_30by2) = 
get_accpd_30by2_a. 

quest ion ( accpd_30by3_n of accpd_30by3) = 
get_accpd_30by3_n . 

quest ion ( accpd_30by3_a of accpd_30by3) = 
get_accpd_30by3_a . 

question ( accpd_30by4_n of accpd_30byA- ) = 
get_accpd_30by <; +_n . 

quest ion ( accpd_30by<4_a of accpd_30byA- ) = 
get_accpd_30by<4_a . 

quest ion ( accpd_30by5_n of accpd_30by5) = 
get_accpd_30by5_n . 

quest ion ( accpd_30by5_a of accpd_30by5) = 
get_accpd_30by5_a . 

quest i on ( accpd_30by6_n of accpd_30by<b ) = 
get_accpd_30by&_n . 

question ( accpd_30by6_a of accpd_30by6) = 
get_accpd_30by6_a . 

name (bacc _wpd_ i nf o of trw) = ignore, 
name < pacc_wpd_30_ i nf o of pacc_wpd ) = ignore, 
name ( pacc_wpd_30by23_ i nf o of pacc_wpd) = ignore. 
name(pacc_wpd_30by4_info of pacc_wpd) = ignore, 
name ( p ac c _ wp d _ 30b y5_ info of pacc_wpd) = ignore, 
name ( pacc_wpd_30by6_ inf o of pacc_wpd) = ignore. 

quest ion(pacc_wpd_30_n of pacc_wpd_30) = 
get_pacc_wpd_30_n . 

quest i on ( pacc_wpd_30_a of pacc_wpd_30) = 
qet_pacc_wpd_30_a . 

quest ion ( pace _wpd_30by23_n of pacc_wpd_30by23 ) = 

get_pacc_wpd_30by23_n . 

quest ion( pacc_wpd_30by23_a of pacc_wpd_30by23 ) = 
get_pacc_wpd_30by23_a . 

quest ion ( pacc_wpd_30by^_n of pacc_wpd_30by^+ ) = 
get_pacc_wpd_30by4_n . 

quest ion ( pacc_wpd_30by'4_a of pacc_wpd_30by4 ) = 
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get_pacc_wpd_30by^t_a . 
quest ion ( pacc_wpd_30by5_n 
get_pacc_wpd_30by5_n . 
quest ion ( pacc_wpd_30by5_a 
get_pacc_wpd_30by5_a . 
quest ion( p acc _ wp d _30b y 6 _n 
get_pacc_wpd_30by6_n . 
quest ion ( pacc_wpd_30by6_a 
get_pacc_wpd_30by6_a . 



of pacc_wpd_30by5 ) = 
of pacc_wpd_30by5 ) = 
of pacc_wpd_30by6 ) = 
of pacc_wpd_30by6 ) = 



question(bk_vals of trw) = get_b k_va 1 s . 

quest ion< forec losure_weight_val of foreclosure) = 

get_fc los_vals . 

quest ion< judgment_weight_val of judgment) = 
get_ judgment _va Is . 

quest ion ( repo_weight_va 1 of repo) = get_repo_vals. 

quest ion ( charge_off_n of charge_off ) = 
get_charge_off_n. 

quest ion ( charge_off_a of charge_off ) = 
get_charge_off_a. 



quest ion ( pd_co 1 l_ac_n of pd_coll_ac) = 
get_pd_coll _ac_n . 

question) pd_co 1 l_ac_a of pd_coll_ac) = 
get_pd_coll_ac_a. 

quest ion ( no_of_ i nq of inquiry) = check_recent_inq . 
quest i on ( cur r_acc t _n of superpayer) = get_curr_acct_n. 

quest ion ( pdbyd lr_n of pdbydlr) = get_pdbyd lr_n . 
quest ion ( pdbyd lr_a of pdbydlr) = get_pdbyd 1 r_a . 

set ( pacc_wde 1 _ i nf o of trw_info of cus tomer_pr of i 1 e_ i nf o 
of 

perserec ) = pacc_wde 1 _ i nf o . 
set (pacc_wdel60_info of pacc_wdel_info of trw_info of 
customer_prof i le_inf o of perserec ) = 
pacc_wdel60_info . 

set ( pacc_wdel90_ i nf o of pacc_wdel_info of trw_info of 
customerjprof i le_info of perserec) = 
pacc_wdel90_info . 

set ( pace _wde 1 1 20_ i nfo of pacc_wdel_info of trw_info of 
customer _prof i le_info of perserec ) = pacc_wde 1 1 20_ i nf o . 
set ( pacc_wde 1 1 50_ i nf o of pacc_wdel_info of trw_info of 
cus tomer _prof i 1 e_ i nf o of perserec ) = pacc_wde 1 1 50_ i nf o . 
set ( pacc_wdel 180_info of pacc_wde 1 _ inf o of trw_info of 
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customer_prof i le_info of perserec) = pacc_wde 1 1 80_ i nf o . 



name ( pacc_wde 1 _ i nf o of 
name ( pace _wd el 60_ info 
name! pacc_wde 1 90_ i nf o 
name ( pacc_wdel 120_ inf o 
name ( pacc_wde 1 1 50_ inf o 
name ( pace _wdel 180_info 



trw) = ignore, 
of pacc_wdel ) = ignore, 
of pacc_wdel ) = ignore, 

of pacc_wdel ) = ignore, 
of pacc_wdel ) = ignore 
of pacc_wdel) = ignore, 



quest ion ( pacc_wdel60_n of 

get_pacc_wdel60_n . 

quest i on ( pacc_wde 160_a of 

get_pacc_wdel60_a . 

quest ion (pacc_wdel90_n of 

get_pacc_wdel90_n . 

quest ion ( pacc_wde 1 90_a of 

get_pacc_wde 190_a . 

quest ion ( pacc_wde 1 1 20_n of 

get_pacc_wde 1 120_n . 

quest i on ( pacc_wde 1 1 20_a of 

get_pacc_wdel 120_a . 

quest ion ( pacc_wdel 1 50_n of 

get_pacc_wdel 150_n. 

quest ion ( pacc_wde 1 150_a of 

get_pacc_wdel 150_a. 

quest ion(pacc_wdel I80_n of 

get_pacc_wdel 180_n . 

ques t i on ( pacc_wde 1 1 80_a of 

get_pacc_wdel 1 80 _ a . 



pacc_wdel60) = 
pacc_wdel60) = 
pacc_wdel90) = 
pacc_wdel90) = 
pacc_wdel 120 ) = 

pacc_wdel 1 20 ) = 

pacc_wdel 150) = 
pacc_wdel 150) = 
pacc_wde 1 1 80 ) - 

pacc_wdel 1 80 ) = 



set ( pd _repo_ i nf o of trw_info of cus tomer _prof i 1 e_ i nf o 
of 

perserec) = pd_repo_info . 

name ( pd _r epo_ i nf o of trw) = ignore. 

quest ion ( pd_repo_n of pd_repo) = get_pd_repo_n. 

ques t i o n ( pd_r epo_a of pd_repo ) = get_pd_repo_a . 



se t < pd _chg _of f _ i nf o of trw_info of 

cus tomer _pr of i 1 e_ i nfo of 

perserec) = pd_chg_of f _ inf o . 

name ( pd_chg_of f_ i nfo of trw) = ignore. 

quest ion(pd_chg_of f_n of pd_chg_off) = 

get_pd_chg_off_n. 

quest i on ( pd_chg_off_a of pd_chg_off) = 
get_pd_chg_off_a. 

set ( pd_f orec 1 o_ i nf o of trw_info of 
customer_prof i le_inf o of 
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perserec ) = pd_foreclo_info. 
name(pd_foreclo_info of trw) = ignore, 
quest ion < pd_forec lo_n of pd_foreclo) = 
get_pd_f orec la_n . 

ques t i on < pd_f orec lo_a of pd_foreclo) = 
get_pd_f orec lo_a . 

set ( bk 1 iqreo_inf o of trw_info of cus t omer _pr of i 1 e_ i nf o 
of 

perserec) = bk 1 iqreo_info . 

name ( b k 1 i qreo_ i nf o of trw) = ignore. 

quest ion(bkl iqreo_n of bkliqreo) = get_bk 1 iqreo_n . 
quest ion ( bk 1 iqreo_a of bkliqreo) = get_bkliqreo_a. 



set < sett led_i nfo of trw_info of customer_prof i le_ i nf o 
of 

perserec) = sett led_inf o . 

name(settled_info of trw) = ignore. 

quest ion( sett led_n of settled) = get_sett led_n . 

quest ion ( sett led_a of settled) = get_settled_a. 



set ( b k _ad j _p 1 n_ i nf o of trw_info of 

customer _prof i le_ inf o of 

perserec) = b k _ad j _p 1 n_ i nf o . 

name < b k_ad j _p 1 n_ i nfo of trw) = ignore. 

ques t ion ( b k_ad j _p 1 n_n of bk_adj_pln) = 

get_bk_ad j_p ln_n . 

quest ion < bk_ad j _p 1 n_a of bk_adj_pln> = 
get_bk_adj_pln_a. 



set ( scnl _nw loc_ i nf o of trw_info of 

customer prof i le_info of 

perserec) = sen 1 _nw 1 oc_ i nf o . 

name ( sen 1 _nw 1 oc_ i nfo of trw) = ignore. 

ques t i on ( sen 1 _nw 1 oc_n of scnl_nwloc) = 

get_scnl_nwloc_n. 

quest ion < scnl _nwloc_a of scnl_nwloc) = 
get_5cnl_nwloc_a. 



set ( co_now_pay_inf o of trw_info of 

customer _prof i le_info of 

perserec) = co_now_pay_info . 

name ( co _now_pay_ i nfo of trw) = ignore. 

quest ion( co_now_pay_n of co_now_pay) = 

get_co_now_pay_n . 
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quest i on ( co_now_pay_a of co_now_pay ) = 
aet_co_now_pay_a . 



set ( f ore_proc_inf o of trw_info of customer_pr of i 1 e_ i nf o 
of 

perserec) = fore_proc_info. 

name C Tore_proc_inf o of trw) = ignore. 

quest i on ( fore_proc_n of fore_proc) = get_fore_proc_n. 
quest i on ( for e_proc_a of fore_proc) = get_fore_proc_a. 



set (gov_claim_info of trw_info of customer _prof i 1 e_i nf o 
of 

perserec) = go v_c 1 a i m_ i nf o . 

name ( gov_c 1 a im_ inf o of trw) = ignore. 

ques t ion < go v_c 1 a im_n of gov_claim) = get_gov_c laim_n . 
questionlgov_claim_a of gov_claim) = get_gov_c 1 a im_a . 



set (close_np_aa_info of trw_info of 

cus t omer _prof i 1 e_ i nf o of 

perserec) = close_np_aa_info. 

name ( c lose_np_aa_inf o of trw) = ignore. 

quest ion ( c lose_np_aa_n of close_np_aa) = 

get_c 1 ose_np_aa_n . 

quest i on ( c 1 ose_np_aa_a of close_np_aa) = 
get_c lose_np_aa_a . 

set ( scnl_i nfo of trw_info of customer_prof i le_inf o of 

perserec) = scnl_info. 

name ( sen 1 _ i nfo of trw) = ignore. 

quest ion(scnl_n of scnl ) = get_scnl_n. 

quest i on ( sen 1 _a of scnl) = get_scnl_a. 



set ( f ed _t ax _ 1 n_ i nf o of trw_info of 

cus tomer _prof i 1 e_ i nf o of 

perserec) = f ed _ t ax _ 1 n_ i nf o . 

name( f ed _t ax_ 1 n_ i nf o of trw) = ignore. 

quest ion(fed_tax_ln_n of fed_tax_ln) = 

qet_fed_tax_ln_n. 

quest ion(fed_tax_ln_a of fed_tax_ln) = 
qet_fed_tax_ln_a. 

set ( f ed _t ax _r e 1 _ i nf o of trw_info of 
customer_prof ile_info of 
perserec) = fed_tax_rel_info . 
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name ( f ed_tax_re 1 _ i nf o of trw) = ignore, 
quest ion ( fed_tax_rel _n of fed_tax_rel ) = 
qet_fed_tax_rel_n. 

quest i on ( fed_tax_re 1 _a of fed_tax_rel) = 
get_fed_tax_rel_a. 

set ( judgmt_sat_ i nf o of trw_info of 

customer_prof i le_info of 

perserec ) = judgmt_sat_ i nf o . 

name < judgmt_sat_i nfo of trw) = ignore. 

quest ion ( judgmt_sat_n of judgmt_sat) = 

get_judgmt_sat_n. 

auest ion ( judgmt_sat_a of judgmt_sat) = 
get_judgmt_sat_a. 



set ( judg_vacat_i nf o of trw_info of 

cus tomer _pro f i 1 e_ inf o of 

perserec ) = judg_vacat_ i nf o . 

name( judg_vacat_inf o of trw) = ignore. 

quest ion( judg_vacat_n of judg_vacat ) = 

get_judg_vacat_n. 

quest i on ( judg_vacat_a of judg_vacat) = 
get_ judg_ vac at _a . 



se t ( mech_ 1 i en_ i nf o of trw_info of cus tomer _pr of i 1 e_ i nfo 
of 

perserec) = mech_ 1 ien_ i nf o . 
name<mech_l ien_info of trw) = ignore. 

quest i on ( mech_ 1 i en_n of mech_lien) = get_mech_l ien_n . 
quest ion( mech_l ien_a of mech_l ien) = get_mech_l ien_a. 



set < mech_rele_info of trw_info of cus tomer _pr of i 1 e_ i nfo 
of 

perserec) = mech_re 1 e_ i nf o . 

name ( mech_re 1 e_ i nfo of trw) = ignore. 

quest i on ( mech_re 1 e_n of mech_rele) = get_mech_rele_n. 
quest ion ( mech_re 1 e_a of mech_rele) = get_mech_rele_a. 



se t ( mn_mtg_f i 1 _ inf o of trw_info of 

customer _prof i le_inf o of 

perserec) = mn_mtg_f i 1 _ i nf o . 

name ( mn_mtg_f i 1 _ i nfo of trw) = ignore. 

quest ion ( mn_mtg_f i 1 _n of mn_mtg_fil) = 

get_mn_mtg_f i 1 _n . 

quest ion ( mn_mtg_f i 1 _a of mn_mtg_fil) = 
get_mn_mtg_f i 1 _a . 
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set (nt_respon_info of trw_info of customer _prof i 1 e_ i nfo 
of 

perserec) = nt_respon_ i nf a . 

name ( nt_respon_i nfo of trw) = ignore. 

quest ion< nt_respon_n of nt_respon) = get_nt_r espo n_n . 
quest 1 on ( nt_respon_a of nt_respon) = get_nt_respon_a . 



set ( stat_tx_ln_info of trw_info of 

customer_prof i le_info of 

perserec) = stat_tx_ln_info. 

name ( st a t _t x_ 1 n_ i nf o of trw) = ignore. 

quest ion ( stat_t x_ln_n of stat_tx_ln) = 

get_stat_tx_l n_n . 

quest i on ( s tat _t x_ 1 n_a of stat_tx_ln) = 
get_stat_tx_ln_a . 

se t ( s ta_t x_r el _ i nf o of trw_info of 

customer _prof i 1 e_i nfo of 

perserec) = sta_tx_rel_info . 

name ( s t a_t x_re 1 _i nf o of trw) = ignore. 

quest i on ( sta_t x_re 1 _n of sta_tx_rel ) = 

get_sta_tx_rel_n. 

quest ion ( sta_tx_re l_a of sta_tx_rel ) = 
get_sta_tx_rel_a. 



set ( su i t_d i smd_i nf o of trw_info of 

customer _prof i 1 e_ i nfo of 

perserec ) = sui t_d ismd_info . 

name ( sui t_d ismd_info of trw) = ignore. 

quest ion ( su i t_d ismd_n of suit_dismd) = 

get_su i t_d ismd_n . 

quest ion ( su i t_d i smd_a of suit_dismd) = 
ge t _su i t _d i smd_a . 



set ( wage_asign_info of trw_info of 

cus tamer _prof i 1 e_ i nf a of 

perserec ) = wage_as i gn_ i nf o . 

name ( wage_as ign_ i nfo of trw) = ignore. 

quest ion ( wage_as ign_n of wage_asign) = 

get_wage_as ign_n . 

quest ion ( wage_as i gn_a of wage_asign) = 
get_wage_asign_a. 
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set ( wa_re lease_ i nf o of trw_info of 

customer_prof i le_info of 

perserec) = wa_release_info. 

name ( wa_re 1 ease_ i nf o of trw) = ignore. 

quest i on ( wa_re 1 ease_n of wa_release) = 

get_wa_release_n . 

quest i on ( wa_re 1 ease_a of wa_release) = 
qet_wa_release_a . 

set ( ref i nanced_ i nf o of trw_info of 

customer _pr of i 1 e_ i nfo of 

perserec) = ref i nanced_ i nf o . 

name ( ref i nanced_ i nfo of trw) = ignore. 

quest i on ( ref i nanced_n of refinanced) = 

get_ref i nanced_n . 

question! ref inanced_a of refinanced) = 
get_ref i nanced_a . 



set ( cr_cd_lost_info of trw_info 
customer_prof i le_info of 
perserec) = cr _cd_ 1 ost_ i nfo . 
name ( cr_cd_ 1 ost_ i nfo of trw) = 
question(cr_cd_lost_n of cr_cd_ 
get_cr_cd_lost_n. 

quest ion ( cr_cd_lost_a of cr_cd_ 
get_cr_cd_lost_a. 



of 



ignore . 
lost) = 

lost ) = 



set ( c los_inac_inf o of trw_info of customer _pr of i 1 e_ i nfo 
of 

perserec) = c 1 os_ i nac_i nf o . 
name(clo5_inac_info of trw) = ignore. 

quest ion( c los_inac_n of clos_inac) = get_clos_inac_n. 
quest ion ( c los_ inac_a of clos_inac) = get _c 1 os_ i nac_a . 



se t ( transfer ed_ i nfo of trw_info of 

customer _prof i 1 e_ i nfo of 

perserec ) = transfered_info. 

name ( transfered_ inf o of trw) = ignore. 

Question! transfered_n of transfered) = 

get_transfered_n . 

question! transfered_a of transfered) = 
get_transfered_a. 



set ( too_new_r t_ i nf o of trw_info of 
customer _prof i 1 e_i nfo of 
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perserec ) = too_new_r t_ i nf o . 
name( too_new_rt_info of trw) = ignore, 
question! too_new_rt_n of too_new_rt) = 
get_too_new_r t_n . 

question! too_new_rt_a of too_new_rt) = 
qet_too_new_rt_a . 



set ( paid_sat i s_i nf o of trw_info of 

customer_prof i 1 e_ i nf o of 

perserec) = paid_satis_info . 

name ( pa 1 d_sa t i s_i nf o of trw) = ignore. 

question(paid_satis_n of paid_satis) = 

get_paid_satis_n. 

question(paid_satis_a of paid_satis) = 
get_paid_sati s_a . 



set (paid_acct_info of trw_info of cus tomer_prof i 1 e_ i nf o 
of 

perserec) = paid_acct_info . 
name(paid_acct_info of trw) = ignore. 

question(paid_acct_n of paid_acct) = get_paid_acc t_n . 
question(paid_acct_a of paid_acct) = get _pa i d_acc t_a . 



set ( deceased_i nf o of trw_info of customer_prof i 1 e_ i nf o 
of 

perserec) = deceased_i nf o . 

name ( deceased_i nf o of trw) = ignore. 

quest i on ( deceased_n of deceased ) = get_deceased_n . 
quest i on ( deceased_a of deceased) = g et_deceased_a . 

set ( cr _1 n_c 1 os_ i nfo of trw_info of 
customer_prof i le_i nfo of 
perserec ) = cr_ ln_c los_i nfo . 
name(cr_ln_clos_info of trw) = ignore, 
quest i on ( cr_ 1 n_c 1 os_n of cr_ln_clos) = 
get_cr_ln_clos_n. 

quest i on ( cr_ 1 n_c 1 os_a of cr_ln_clos) = 
get_cr_ln_clos_a. 



set < redmd_repo_info of trw_info of 

customer_prof i 1 e_ i nf o of 

perserec ) = redmd _r epo_ i nf o . 

name ( redmd_repo_i nfo of trw) = ignore. 

quest ion! redmd_repo_n of redmd_repo) = 

get_redmd_repo_n. 
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quest ion ( redrad_repo_a of redmd_repo) = 
get_redmd_repo_a . 



set ( cur_was_co 1 _ i nf o of trw_info of 

customer _prof i le_info of 

perserec ) = cur _was_co 1 _ i nf o . 

name ( cur_was_co 1 _inf o of trw) = ignore. 

quest i on ( cur _was_co 1 _n of cur_was_col ) = 

qet_cur_was_co 1 _n . 

question(cur_was_col_a of cur_was_col) = 
qet_cur_was_co l_a . 

set ( cr_ 1 n_rnst_ inf o of trw_info of 

cus tomer_prof i le_info of 

perserec ) = cr_ln_rnst_info. 

name ( cr_ 1 n_rnst_i nfo of trw) = ignore. 

question(cr_ln_rnst_n of cr_ln_rnst) = 

get_cr_ln_rnst_n. 

quest ion ( cr_ 1 n_rnst_a of cr_ln_rnst) = 
aet_cr_ln_rnst_a. 



set ( cur _was_f or _ i nf o of trw_info of 

customer_prof i 1 e_ i nf o of 

perserec) = cur_was_for_info. 

name ( cur_was_f or_inf o of trw) = ignore. 

quest ion ( cur_was_f or _n of cur_was_for) = 

get_cur_was_for_n . 

question ( cur_was_for_a of cur_was_for) = 
get_cur_was_for_a . 

set (pd_not_aa_info of trw_info of customer_prof i le_inf o 
of 

perserec) = pd_not_aa_inf o . 

name ( pd_no t _aa_ i nf o of trw) = ignore. 

quest ion ( pd_no t_aa_n of pd_not_aa) = get_pd_not_aa_n . 
quest i on ( pd_no t_aa_a of pd_not_aa) = get_pd_no t_aa_a . 



set (city_tx_ln_info of trw_info of 

customer _prof i le_info of 

perserec ) = c i ty_t x_ 1 n_ i nf o . 

name ( c i ty_t x_ 1 n_ inf o of trw) = ignore. 

quest ion(city_tx_ln_n of city_tx_ln) = 

get_city_tx_ln_n. 

question(city_tx_ln_a of city_tx_ln) = 
get_city_tx_ln_a. 
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set ( c i t y_ t x_r e 1 _ i nf o of trw_info of 

customer_prof i le_info of 

perserec) = c i ty _t x_re 1 _ i nf o . 

name ( c i ty_t x_re 1 _ i nf o of trw) = ignore. 

ques t i on ( c i ty _t x_re 1 _n of city_tx_rel) = 

get_city_tx_rel_n. 

quest ion ( c i ty_tx_rel_a of city_tx_rel ) = 

get_city_tx_rel_a. 

set ( conse 1 _ser _ i nf o of trw_info of 
customer_prof i le_ info of 
perserec) = consel _ser _ i nf o . 
name(consel_ser_info of trw) = ignore, 
ques t i on ( conse 1 _ser _n of consel_ser) = 
ge t _conse 1 _ser_n . 

quest i on ( conse 1 _ser _a of consel_ser) = 
get_consel _ser _a . 



se t ( co_tax_ 1 n_ i nf o of trw_info of customer _prof i 1 e_ i nf o 
of 

perserec) = co_tax_ 1 n_ i nf o . 

name ( co_tax_ 1 n_ i nf o of trw) = ignore. 

quest ion( co_tax_ln_n of co_tax_ln) = get_co_tax_ 1 n_n . 
quest ion ( co_tax_ 1 n_a of co_tax_ln) = get_co_tax_ln_a. 



set(co_tax_rel_info of trw_info of 

customer _prof i 1 e_ i nfo of 

perserec) = co_t ax_re 1 _i nf o . 

name ( co_t ax_r el _i nf o of trw) = ignore. 

ques t ion ( co_t ax_re 1 _n of co_tax_rel ) = 

get_co_tax_rel_n. 

quest i on ( co_tax_re 1 _a of co_tax_rel) = 
get_co_tax_rel_a. 

synonym ( cone 1 uded ) = $ the conclusion $. 
synonym! cone lusion )= $ the current case *. 
synonym ( we igh t_p t ) = * the current case *. 
synonym ( over a 1 l_weight_val )=$overal 1 calculated 
we ight* . 

synonym ( wei ght_p t_i nf a ) =* current case’s total 
weights* . 

sy nonym ( we i gh t_p t _va 1 ) = *above weight*, 

synonym ( cut_off ) =*the range 0-200 that we use*. 
synonym(cut_off_inf o ) =*determined cut off values*, 
synonym ( po tent i a 1 _bankrup t ) =*po tent ial bankrupt* . 
synonym! pb_cut_off_val )=*potential bankrupt cut off 
va 1 ue* . 
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synonym ( very_cr i t ical_cut_off _val ) =$very critical cut 
off value*. 

synonym(cr itical_cut_off_val )=$critical cut off value*. 

synonym ( ser ious_cut_off _val )=*ser ious cut off value*, 
synonym ( very_poor _cut_off_va 1 ) =*very poor cut off 
va 1 ue* . 

synonym( poor_cut_of f _val ) =*poor cut off value*, 
synonym ( sat i sfac tory_cut_off_va 1 ) =*sat i sfac tor y cut off 
va lue* . 

synonym(normal_cut_off_val)=$normal cut off value*. 



/* Synonyms for easier user recognition */ 

synonym(conclusion_info)=*current case*, 
synonym < too_many_acc ts ) =*Too many accounts*, 
sy nonym ( curr _acc t_n ) =*number of current accounts*, 
synonym ( superpayer_i nf o ) =$Super payer* . 
synonym < a 1 armi ng 1 y_h igh)=$alarmingly high*, 
synonym ( ex treme ly_ low) =*ex treme ly low* . 

synonym(extremely_low_cut_off_val )=*the extremely low 
cut off value*, 
synonym ( very _ 1 ow ) =*very low*. 

synonym ( very _ low_cut_of f _va 1 ) =*very low cut off value*. 
synonym< low_cut_off _val ) =*low cut off value*, 
synonym ( very_poor ) =*very poor*. 

synonym( moderate ly_h igh_cut_off_va 1 ) =$moder ate 1 y high 
cut off value*. 

synonym ( h igh_cut_off_va 1 ) =*h i gh cut off value*, 
synonym ( very_h i gh_cut_of f _va 1 ) =*very high cut off 
va lue* . 

synonym ( very_cr i t ical )=$very critical*, 
synonym ( ex treme ly_h igh ) =*ex treme 1 y high*. 

synonym ( ex treme ly_h igh_cut_off_val ) =$ex treme ly high cut 
off value*. 

synonym ( pub 1 i c_record _va 1 ) =$pub 1 i c record val*. 
synonym ( pr i vate_record_va 1 ) =$pr i vate record value*, 
synonym ( we igh ted_dec i s i on ) =*we i gh ted dec i s i on* . 
synonym (set_of_bkrp t s_and_ 1 i ens_we ight_val )=*the 

calculated weights for all bankruptcies and liens*, 
synonym ( set_of_mi sc _pub 1 ic_ i tems_we i gh t_va 1 ) =*the 

calculated weights for all miscellaneous public 
items*. 

synonym ( se t _of _cur r ent _and_pa i d _acc t s_we i gh t _va 1 ) =*the 
calculated weights for all current and paid 
accounts* . 
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synonym ( se t _of _de 1 i nq_accts_we ight_val )=*the calculated 
weights for all delinquent accounts*, 
synonym ( se t_of _mi sc_pr ivate_i tems_we ight_val ) =* the 

calculated weights for all miscel laneous private 
i terns* . 

synonym ( b k_ad j _p 1 n_we i gh t_va 1 )=* the calculated weight 
for debt included or discharged through bankruptcy 
chapter 13*. 

synonym ( b k_ad j _p 1 n_i nfo )=* the current case*, 
synonym ( bk 1 i qreo_we igh t_va 1 )=* the calculated weight for 
debt included or discharged through bankruptcy 
chapter 7 or 11*. 

synonym( bk 1 iqreo_inf o )=*the current case*, 
synonym ( bk_va 1 s )=* the calculated weight for bankruptcy 
filed, dismissed or completed in chapters 7, 11 or 

13*. 

synonym ( trw_ i nfo )=* the current case*. 

synonym( mech_l i en_we i gh t_ va 1 ) =*the calculated weight 
for mechanics lien*. 

synonym( mech_l ien_info ) =*the current case*. 
synonym(mech_rele_weight_val )=*the calculated weight 
for mechanics lien released*, 
synonym ( mech_re 1 e_i nfo )=$ the current case*, 
sy nonym ( fed_t ax _ 1 n_we i ght_va 1 )=* the calculated weight 
for federal tax lien*. 

synonym(fed_tax_ln_info )=*the current case*, 
synonym ( fed_tax_re 1 _we igh t_va 1 ) =*the calculated weight 
for federal tax lien release*, 
synonym ( fed_tax_re l_i nfo ) =*the current case*, 
synonym < sta t_t x_ 1 n_we i gh t_va 1 )=* the calculated weight 
for state tax lien*. 

sy nonym ( sta t_t x_ 1 n_ i nfo )=$ the current case*, 
synonym ( sta_t x_re 1 _we i gh t_va 1 )=* the calculated weight 
for state tax lien release*, 
synonym! sta_tx_rel_info ) =*the current case*, 
synonym ( c i ty_tx_l n_we igh t_va 1 )=* the calculated weight 
for city tax lien*. 

synonym ( c i ty_t x_ 1 n_ i nfo )=* the current case*, 
synonym ( c i ty_t x_re 1 _we i gh t_va 1 )=$ the calculated weight 
for city tax lien release*, 
synonym ( c i ty_t x _re 1 _ i nfo )=* the current case*, 
sy no nym ( co_ ta x _ 1 n_we i gh t_ va 1 ) =* t he calculated weight 
for county tax lien*. 

synonym ( co_ tax_ 1 n_ i nfo ) =*the current case*. 
synonym(co_tax_rel_weight_val )=*the calculated weight 
tor county tax lien release*. 
s/nonym(co_tax_rel_info)=$the current case*, 
synonym ( j udgmt_sat_we i gh t_va 1 )=* the calculated weight 
for satisfied judgement*. 
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synonym( j udgmt _sat _ i nf o )=Sthe current cases, 
synonym! judg_vacat_weight_val ) =Sthe calculated weight 
for vacated judgements, 
synonym ( j udg_vacat_ i nf o ) =Sthe current cases, 
synonym ( j udgment_we i gh t_va 1 ) =Sthe calculated weight for 
judgements . 

synonym ( judgment_inf o ) =Sthe current cases, 
synonym ( wage_as i gn_we i gh t_va 1 ) =S the calculated weight 
for wage assignments. 

synonym! wage_as i gn_ i nf o )=Sthe current cases, 
synonym! wa_r e 1 ease_we i gh t _va 1 )=Sthe calculated weight 
for wage assignment releasedS. 
synonym ( wa_re 1 ease_ i nfo ) =S the current cases, 
synonym! sui t_weight_val ) =Sthe calculated weight for 
suits. 

synonym! sui t_info ) =Sthe current cases. 

sy nonym ( su i t_d i smd_we igh t _va 1 ) =$ the calculated weight 
for suit dismissedS. 

synonym < mn_mtg_f i l_weight_val )=Sthe calculated weight 
for filed manual mortgage reports, 
synonym ( mn_mtg_f i 1 _ i nfo ) =Sthe current caseS. 
synonym ( nt_respon_we igh t_va 1 ) =Sthe calculated weight 
for not responsible notices, 
synonym ( nt_respon_ i nfo ) =S the current caseS. 
synonym! conse 1 _ser _we igh t_va 1 )=Sthe calculated weight 
for debt counseling services, 
synonym ( consel _ser_ inf o ) =S the current caseS. 
synonym! curr_acct_n_weight_val ) =Sthe calculated weight 
for number of current accountsS. 
synonym ! superpayer_ i nfo ) =Sthe current caseS. 
synonym ( cur_was_co 1 _weight_val ) =Sthe calculated weight 
for a current account that was a collection 
accounts . 

synonym(cur_was_col_info )=$the current caseS. 
synonym ! cur _was_f or _we i gh t_va 1 ) =S the calculated weight 
for a current account that was a f orec 1 osur eS . 
synonym ( cur_was_f or_i nfo ) =Sthe current caseS. 
synonym ( cur _was_we i gh t_va 1 ) =S the calculated weight for 
a current account that was delinquents, 
synonym ( cur_was_ i nf o ) =Sthe current caseS. 
synonym ( cwpd_weight_val ) =Sthe calculated weight for a 
current account that was past dueS. 
synonym ( curwaspd_ i nfo ) =$the current caseS. 
synonym! paid_sat i s_we i gh t_va 1 ) =Sthe calculated weight 

for a closed account that was paid sat i sf ac tor i 1 yS . 
synonym(paid_satis_info)=Sthe current caseS. 
synonym ! pa i d_acc t_we igh t_va 1 ) =S the calculated weight 

tor an account that is closed, has zero balance or 
is not ratedS. 
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synonym ( pa i d_acc t_ i nfo ) =S the current cases. 
synonym(pd_not_aa_weight_val >=Sthe calculated weight 
for a paid account with some payments not made as 
agreeds . 

sy nonym ( pd_no t_aa_ i nf o ) = Sthe current cases. 
synonym(pacc_wpd_weight_val )=Sthe calculated weight for 
a paid account that was past dues, 
synonym C pacc_wpd_i nfo )=Sthe current cases, 
synonym) pace _wde 1 _we i gh t_va 1 ) =Sthe calculated weight 
for a paid account that was delinquents, 
synonym) pacc_wdel_info >=Sthe current cases, 
synonym ( pd_chg_of f _we i gh t_va 1 ) =Sthe calculated weight 
for a paid account that was a charge offs, 
synonym ( pd_chg_off_i nfo ) =Sthe current cases. 
synonym(pd_reDO_weight_val )=Sthe calculated weight for 
a paid account that was a repossessions, 
synonym ( pd_reoo_ i nfo )=$ the current cases, 
synonym ( pd_co 1 l_ac_weight_val )=Sthe calculated weight 

for a paid account that was a collection, insurance 
or education claims. 

synonym ( pd_co 1 1 _ac_ i nfo ) =$the current cases, 
synonym ( no tpdaa_we i gh t_va 1 ) =Sthe calculated weight for 
an account not being paid as agreedS. 
synonym ( no tpdaa_ i nfo ) =Sthe current cases, 
synonym ( pd_forec 1 o _we i gh t _va 1 ) =Sthe calculated weight 
for a paid account that was a foreclosures, 
synonym ) pd_f orec lo_info ) =Sthe current caseS. 
synonym) del i nq _we i gh t _va 1 )=Sthe calculated weight for a 
delinquent accounts. 

syno nym ( de 1 i nq_ i nf o ) =S the current cases. 

synonym) accpd_weight_val )=Sthe calculated weight for an 
account past dues. 

synonym ) accpd_i nfo ) =Sthe current cases. 

synonym ( vo 1 nrepo _we i gh t_va 1 ) =Sthe calculated weight for 
voluntary repossessions, 
synonym ( vo 1 nr epo_ i nfo ) =S the current caseS. 
synonym ( for ec 1 osure_we i gh t_va i ) =Sthe calculated weight 
for a f orec 1 osureS . 

svnonym ) f or ec 1 osur e_ l nf o ) =$ the current cases . 
synonym ) repo_we i ght_va 1 ) =Sthe calculated weight for a 
repossessions . 

synonym ( repo_i nfo ) =Sthe current cases. 

synonym ( pdbyd lr_we igh t_va 1 ) =Sthe calculated weight for 
an account that was paid by dealers, 
synonym ) pdbyd lr_i nfo ) =Sthe current cases, 
synonym ( co 1 1 _acc t_we igh t_va 1 ) =Sthe calculated weight 
for a collection accounts, 
synonym ) co 1 1 _acc t_ i nfo ) =S the current cases. 
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synonym ( charge_off _weight_val ) =Sthe calculated weight 
for a charge offS. 

synonym ( charge_off_ i nfo )=S the current case$. 
synonym ( c 1 ose_np_aa_we i gh t _va 1 )=S the calculated weight 
for credit line closed account not paid as agreed$. 
synonym ( c 1 ose_np_aa_ i nfo ) =S the current caseS. 
synonym(scnl_weight_val )=$the calculated weight for 
unlocated consumers, 
synonym ( sen 1 _i nfo ) =Sthe current case$. 

synonym ( for e_proc_we igh t_va 1 ) =Sthe calculated weight 
for f orec losure proceedings, 
synonym ( fore_proc_i nfo ) =Sthe current caseS. 
synonym ( i nsc 1 a i m_wei gh t_va 1 )=$ the calculated weight for 
claim filed against insured portion of balances, 
synonym ( i nsc 1 a i m_ i nfo ) =S the current caseS. 
synonym ( go v_c 1 a im_we i gh t _va 1 ) =S t he calculated weight 
for government claims. 
synonym(gov_claim_info)=$the current caseS. 
synonym ( sett led_weight_val )=Sthe calculated weight for 
a settled accounts. 

synonym ( set t 1 ed_ i nfo ) =Sthe current caseS. 
synonym ( scnl _nwloc_weight_va 1 ) =Sthe calculated weight 
for a located consumer previously unlocatedS. 
synonym ( sen 1 _nwloc_ i nfo ) =Sthe current caseS. 
synonym ( co_now_pay_weight_val ) =Sthe calculated weight 
for a paying account that was a charge offS. 
synonym ( co_now_pay_i nfo ) =Sthe current cases, 
synonym ( ref i nanced_we i gh t_va 1 ) =S the calculated weight 
for a refinanced accounts, 
synonym ( ref inanced_i nfo ) =Sthe current caseS. 
syno nym ( cr _cd_ 1 os t_we i gh t_va 1 ) =S t he calculated weight 
for credit card lost or stolenS. 
sy nonym ( cr _cd_ 1 os t_i nf o ) =S the current caseS. 
synonym ( c 1 os_i nac_we i gh t_va 1 ) =S the calculated weight 
for closed inactive accounts, 
synonym ( c 1 os_ i nac_ i nfo ) =Sthe current caseS. 
synonym ( transfered_wei ght_va 1 ) =Sthe calculated weight 
for transferred accounts, 
synonym ( transfered_ i nfo ) =Sthe current caseS. 
synonym ( tao_new_r t_we i ght_va 1 ) =Sthe calculated weight 
for an account too new to rates, 
synonym ( too_new_r t_ i nf a ) =Sthe current caseS. 
synonym ( deceased _we i gh t_va 1 ) =Sthe calculated weight for 
deceaseds . 

synonym ( deceased, i nfo ) =$the current caseS. 
synonym ( cr_ ln_c 1 os_we i gh t_va 1 ) =Sthe calculated weight 
for credit line closedS. 
synonym ( cr_ 1 n_c 1 os_ i nfo ) =S the current caseS. 
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synonym ( redmd_repo_we iqh t_va 1 ) =$the calculated weight 
for redeemed repossess i on$ . 
synonym ( redmd_repo_ inf o ) = *the current case*. 
synonym(cr_ln_rnst_weight_val)=$the calculated weight 
for credit line reinstated*. 

synonym ( cr_ 1 n_rnst_ i nfo ) =$the current case$. 
sy nonym ( i nq_we i gh t_va 1 ) =*the calculated weight for 
inquiry* . 

sy nonym ( i nqu i ry_ i nf o ) =$ the current case*, 
synonym ( superpayer _we i gh t_va 1 ) =$the calculated weight 
for superpayer*. 

synonym(superpayer_info )=*the current case*, 
synonym ( bk 1 iqreo_n ) =*the number of occurrences of debt 
included or discharged through bankruptcy chapter 7 
or 11 * . 

synonym ( set t led_n )=* the number of occurrences of 
settled accounts*. 

synonym ( bk_ad j_p 1 n_n ) =*the number of occurrences of 
debt included or discharged through bankruptcy 
chapter 13*. 

synonym ( scnl _nwloc_n ) =*the number of occurrences of a 
located consumer previously unlocated* . 
synonym ( co_now_pay_n ) =*the number of occurrences of 
charge offs now being paid*. 

synonym ( fore_proc_n ) =*the number of occurrences of 
foreclosure proceedings*. 

synonym ( gov_c 1 a im_n ) =*the number of occurrences of 
government claims*. 

synonym ( c lose_np_aa_n ) =$ the number of occurrences of 
credit line closed account not paid as agreed*. 
synonym(scnl_n)=$the number of occurrences of unlocated 
consumer* . 

sy nonym ( fed_t ax_ 1 n_n ) =*the number of occurrences of 
federal tax liens*. 

synonym(fed_tax_rel_n)=*the number of occurrences of 
federal tax liens released*, 
synonym ( judgmt_sat_n ) =*the number of occurrences of 
satisfactory judgements*. 

synonym ( judg_vacat_n ) =*the number of occurrences of 
vacated judgements*. 

synonym ( mech_ 1 i en_n ) =*the number of occurrences of 
mechanics liens*. 

synonym(mech_rele_n)=$the number of occurrences of 
mechanics liens released*, 
synonym ( mn_mtg_f il_n)=*the number of occurrences of 
filed manual mortgage reports*, 
synonym ( nt_respon_n ) =*the number of occurrences of not 
responsible notices*. 
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synonym ( stat_tx_ ln_n ) = $the numt 
state tax liens$. 
synonym ( sta_t x_re 1 _n ) =$the numt 
state tax liens released®, 
synonym ( su i t_d i smd_n ) =$ the numt 
sui ts$ . 

synonym(wage_asign_n)=$the numt 
wage assignments®. 

synonym ( wa_release_n ) =$the number of occur 
wage assignments released®, 
synonym ( ref i nanced_n ) =$the number 
r ef i nanced® . 

synonym ( cr_cd_lost_n ) =$the number of occu 
credit card lost$. 
synonym ( c los_i nac_n ) =$the number 
closed inactive account®, 
synonym! transfered_n)=®the numbe 
transfers® . 

synonym ( too_new_r t _n ) =®the numbe 
new to rate$ . 

synonym ( pa id_sat i s_n ) =$the numbe 
paid satisfactorily®, 
synonym ( pa i d_acct_n )=$ the number of occur 
accounts . 

synonym ( deceased_n ) =Sthe number of occurrences of 
deceaseds . 

synonym ( cr_ 1 n_c los_n ) =Sthe number of occurrences of 
credit line closedS. 

synonym ( redmd_repo_n ) =$the number of occurrences of 
redeemed repossess i onsS . 

synonym! cur_was_col_n )=Sthe number of occurrences of 
current accounts that were collection accountsS. 
synonym ( cr_ 1 n_rnst_n ) =Sthe number of occurrences of 
credit line reinstatedS. 

synonym ( cur_was_for_n ) =Sthe number of occurrences of 
current accounts that were f orec losuresS . 
synonym ( pd_no t_aa_n ) =$the number of occurrences of paid 
accounts with some payments not made as agreedS. 
synonym! c i ty_tx_ln_n ) =Sthe number of occurrences of 
city tax li enS . 

synonym ( c i ty_t x_re 1 _n ) =S the number of occurrences of 
city tax lien released®. 

synonym ( conse 1 _ser_n ) =$the number of occurrences of 
debt counseling service®. 

synonym ( co_tax_ 1 n_n ) =$the number of occurrences of 
county tax lien®. 

5ynonym(co_tax_rel_n)=®the number of occurrences of 
county tax lien released®. 
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synonym ( pd _forec 1 Q_n ) = *the number of occurrences of 
paid accounts that were f or ec 1 osur es* . 
synonym ( pd_chg_off_n >=*the number of occurrences of 
paid accounts that were charge offs$. 
synonym ( pd_repo_n ) = *the number of occurrences of paid 
accounts that were repossess ions$ . 
synonym ( pd_co 1 1 _ac_n ) = *the number of occurrences of 

paid accounts that were collections, or insurance 
or education claims*. 

synonym ( pacc_wde 1 60_n ) = *the number of occurrences of 
paid accounts that were delinquent <b 0 days*. 
synonym(pacc_wdel90_n)=*the number of occurrences of 
paid accounts that were delinquent 90 days*, 
synonym < pacc_wde 1 120_n)=$the number of occurrences of 
paid accounts that were delinquent 120 days*, 
synonym ( pacc_wde 1 1 50_n ) =*the number of occurrences of 
paid accounts that were delinquent 150 days*, 
synonym < pacc_wde 1 1 80_n ) =*the number of occurrences of 
paid accounts that were delinquent 180 days*. 
synonym( sui t_n )=*the number of occurrences of suits*, 
synonym ( pacc_wpd_30_n ) =*the number of occurrences of 
paid accounts that were past due 30 days*, 
synonym ( pacc_wpd_30by23_n ) =*the number of occurrences 
of paid accounts that were past due 30 days 2 or 3 
times* . 

synonym ( pacc_wpd_30by4_n ) =*the number of occurrences of 
paid accounts that were past due 30 days 4 times*, 
synonym ( pacc_wpd_30by5_n ) =*the number of occurrences of 
paid accounts that were past due 30 days 5 times*. 
synonym(pacc_wpd_30by6_n)=*the number of occurrences of 
paid accounts that were past due 30 days 6 times*, 
synonym ( accpd_30_n ) =*the number of occurrences of an 
account past due 30 days*. 

synonym ( accpd_30by2_n )=* the number of occurrences of an 
account past due 30 days 2 times*, 
synonym ( accpd_30by3_n ) =*the number of occurrences of an 
account past due 30 days 3 times*, 
synonym ( accpd _30by4_n )=* the number of occurrences of an 
account past due 30 days 4 times*, 
synonym! accpd_30by5_n)=$the number of occurrences of an 
account past due 30 days 5 times*, 
synonym ( accpd_30by6_n ) =*the number of occurrences of an 
account past due 30 days 6 > times*, 
synonym ( cwpd_n ) =*the number of occurrences of a current 
account that was past due*, 
synonym ( cwpd_30_n ) =*the number of occurrences of a 
current account that was past due 30 days*, 
synonym ( cwpd_30by2_n ) =Sthe number of occurrences of a 
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current account that was past due 30 days 3 
t imes* . 

synonym < cwpd_30by3_n )=* the number of occurrences of a 
current account that was past due 30 days 3 times* 
synonym(cwpd_30by4_n)=*the number of occurrences of a 
current account that was past due 30 days 4 times* 
synonym < cwpd_30by5_n ) =$the number of occurrences of a 
current account that was past due 30 days 5 times* 
synonym ( cwpd_30by6_n )=$ the number of occurrences of a 
current account that was past due 30 days 6 times* 
synonym ( d_60_n ) =*the number of occurrences of an 
account delinquent 60 days*, 
synonym ( d_90_n ) =*the number of occurrences of an 
account delinquent 90 days*, 
synonym ( d_ 1 20_n ) =*the number of occurrences of an 
account delinquent 120 days*, 
synonym ( d_ 1 50_n ) =*the number of occurrences of an 
account delinquent 150 days*, 
synonym ( d_ 1 Q0_n ) =*the number of occurrences of an 
account delinquent ISO days*, 
synonym ( c_w_60_n ) =$the number of occurrences of a 
current account that was delinquent 60 days*, 
synonym ( c_w_90_n )=* the number of occurrences of a 
current account that was delinquent 90 days*, 
synonym ( c_w_120_n ) =*the number of occurrences of a 
current account that was delinquent 120 days*, 
synonym ( c_w_150_n ) =*the number of occurrences of a 
current account that was delinquent 150 days*, 
synonym ( c_w_l S0_n ) =*the number of occurrences of a 
current account that was delinquent 1B0 days*, 
synonym ( pdbyd lr_n ) =$the number of occurrences of 
accounts paid by dealer*. 

synonym ( co 1 1 _acct_n ) =*the number of occurrences of 
collection account*. 

synonym < charge_off_n ) =*the number of occurrences of 
charge offs*. 

synonym ( curr_acc t_n ) =*the number of occurrences of 
current accounts*. 

synonym ( insc 1 a im_n ) =*the number of occurrences of a 
claim filed against insured portion of balance*, 
synonym ( no tpdaa_n ) =$the number of occurrences of an 
account not being paid as agreed*, 
synonym ( vo 1 nrepo_n ) =*the number of occurrences of 
voluntary repossession*. 



/* RULES */ 

the concluded of cone 1 us i on_ i nf o is too_many_accts 
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it 

the curr_acct_n of superpayer_info is N and 
N > 20. 

the concluded of cone 1 us i on_ i nf o is potent ial_bankrupt 
if 

the weight_pt_val of weight_pt_ info is a 1 arm i nq 1 y_h i gh . 



the weight_pt_val of weight_pt_info is a 1 ar m i ng 1 y_h igh 
if 

the overa 1 1 _we i gh t_va 1 of cone lus ion_ i nf o is V and 
the pb_cut _of f _va 1 of cut_off_info is Z and 

Y > Z. 

the concluded of cone lusion_info is superpayer 
i f 

the month ly_payment of the superpayer _ i nfo is E and 
the month 1 y_ i ncome of the personal_info is I and 
E > I . 

the concluded of cone lus ion_info is normal 
if 

the we i ght_p t_va 1 of we igh t _p t _ i nf o is extremely_low. 

the wei gh t _p t _va 1 of we i gh t _p t _ i nf o is extremely_low 
i f 

the overa 1 l_weight_val of cone 1 us i on_ i nf o is Y and 
the extremely_low_cut_off _val of cut_off_info is Z and 

Y =< Z. 

the concluded of cone lus ion_ i nfo is satisfactory 
if 

the weight_pt_val of we igh t_p t_ i nf o is very_low. 

the we i gh t_p t _va 1 of weight_pt_ info is very_low 
if 

the overal l_weight_val of cone 1 us i on_ i nf o is Y and 
the very_low_cut_off_val of cut_off_info is Z and 

Y =< Z. 

the concluded of cone 1 us i on_ i nf o is poor 
i f 

the weight_pt_va 1 of we i gh t_p t_ i nf o is low. 

the we ight_p t_val of weight_pt_info is low 
i f 

the overal l_weight_val of cone lusion_ info is Y and 
the low_cut_of f _val of cut_off_info is Z and 
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y =< z. 



the concluded of cone 1 us i on_ i nf o is very_poor 
i f 

the weight_pt_val of we i gh t _p t _ i nf o is moderately_h igh . 



the weight_pt_val of we i gh t _p t _ i nf o is moderate 1 y_h i gh 
i f 

the overal l_weight_val of cone lusion_i nf o is V and 
the moderately_h igh_cut_off _val of cut_off_info is Z 
and 

Y =< Z. 

the concluded of cone lus i on_ i nf o is serious 
if 

the we i gh t _p t_va 1 of we igh t _p t _ i nf o is high. 

the weight_pt_val of we i gh t _p t _ i nf o is high 
i f 

the overal l_weight_val of cone 1 usi on_ i nf o is Y and 
the h i gh_cut _of f _va 1 of cut_off_info is Z and 

Y =< Z. 

the concluded of cone 1 us ion_ i nf o is critical 
if 

the we i gh t _p t _va 1 of we i gh t _p t _ i nf o is very_high. 

the weight_pt_val of weight_pt_inf o is very_high 
if 

the overal l_weight_val of cone 1 usion_ i nf o is Y and 
the very_high_cut_off_val of cut_off_info is Z and 

Y =< Z. 

the concluded of cone lusion_inf o is very _cr i t i ca 1 
if 

the weight_pt_val of we i gh t _p t _ i nf o is ex t remel y_h i gh . 

the we i gh t _p t _va 1 of wei ght_p t _ i nf o is ex treme 1 y _h i gh 
if 

the overal l_weight_va 1 of cone lus i on_ i nfo is Y and 
the extremely_h igh_cut_of f_val of cut_off_info is Z and 

Y > Z. 



the overal l_weight_val of cone 1 us i on_ i nf o is Y 
i f 

the public_record_val of cone 1 us i on_ i nf o is Y_1 and 
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the private_record_val of cone 1 us i on_ i nf o is Y_2 and 
y = Y_l+Y_2. 

the concluded of cone 1 us ion_ i nf o is X 
if 

the overal l_weight_val of cone lusion_info is Y and 
weight ed_decision(Y,X) . 



the pub 1 ic_record_val of cone 1 us i o n_ i nf o is Z 
if 

the set of _b krp ts_and_ 1 i ens_we i gh t _va 1 of 
cone lusion_info is Z_1 and 

the set _of _m i sc _pub 1 ic_ i tems_we i gh t_va 1 of 
conclusion_info is Z_2 
and Z = Z_l+Z_2. 

the pr i vate_record_val of cone lusion_info is Z 
if 

the set_of_current_and_paid_accts_weight_val of 
cone 1 us i on_ i nf o is Z_3 and 

the set_of _del inq_accts_weight_val of cone lusion_inf o 
is Z_4 and 

the set_of _misc_pr i vate_i tems_we i gh t_va 1 of 
cone lus ion_ inf o is Z_5 and 
Z = Z_3+Z_4+Z_5. 



the se t _of _b krp t s_and_ 1 i ens_we i gh t _va 1 of 
cone 1 us ion_i nf o is Z_1 
i f 

the bk_ad j _p 1 n_we igh t_va 1 of bk_ad j_p ln_info is X_1 and 
the b k 1 i qreo_we i gh t _va 1 of b k 1 i qreo_ i nf o is X_2 and 
the bk_vals of trw_info is X_3 and 

the mech_ 1 i en_we igh t_ va 1 of mech_ 1 i en_ i nf o is X_9 and 
the mech _rel e_we igh t_va 1 of mech_re 1 e_ i nf o is X_5 and 
the f ed_tax _ 1 n_we igh t_va 1 of fed_tax_ln_inf o is X_6 and 
the f ed_ ta x_re 1 _we igh t_ va 1 of fed_tax_rel_info is X_7 
and 

the s ta t _t x_ 1 n_we i gh t_va 1 of s ta t_t x_ 1 n_ i nf o is X_8 and 
the sta_tx_rel_weight_val of sta_tx_rel_info is X_9 and 
the c i ty _ t x_ 1 n_we i gh t _va 1 of c i ty_tx_ln_info is X_10 
and 

the c i t y _ t x_re 1 _we i gh t_va 1 of city_tx_rel_info is X_ll 
and 

Che co_tax_ln_weight_val of co_tax_ln_inf o is X_12 and 
the co_tax_rel_weight_val of co_tax_rel_inf o is X_13 
and 
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Z_1 



= X_l+X_2+X_3+X_4+X_5+X_6+X_7+X_s+X_9+X_10 
+ X_1 1 + X _ 1 2-t-X _ 1 3 . 

the set_of_misc_public_items_weight_val of 
cone lusion_inf o is Z_2 
if 



the 


judgmt_sat_we ight_val 
and 


of 


judgmt_sat_i nfo 


i s 


X 

ru 

o 


the 


j udg_ vac at _we i gh t_v a 1 
and 


of 


j ud g_ vac a t_i nfo 


i s 


X _2 1 


the 


judgment_weight_val of 


judgment_i nfo is X 


_22 


: and 


the 


wage_as ign_we ight_val 
and 


of 


wage_asign_ i nfo 


i s 


X _23 


the 


wa_release_weight_val 


of 


wa_release_i nfo 


i s 


X _2“4 



and 

the sui t_d ismd_weight_val of su i t_d i smd_ i nf a is X_25 



and 

the sui t_weight_val of suit_info is X_26 and 
the mn_mtg_f i 1 _wei gh t _va 1 of mn_mtg_f i 1 _ i nf o is X_27 
and 

the nt_respon_weight_val of nt_respon_i nf o is X_2S and 
the consel _ser_we igh t _va 1 of consel_ser_info is X_29 
and 

Z_2 = X_20+X_21+X_22+X_23+X_24+X_25+X_26+X_27 
+X_28+X_29. 



the set_of _curren t _and_pa i d _acc ts_wei gh t_va 1 of 
cone Ilis i on_ i nf o is Z_3 
if 

the curr_acct_n_weight_val of superpayer_info is X_30 
and 

the ciir_was_col_weight_val of cur_was_col_info is X_31 
and 

the cur_was_for_weight_val of cur_was_for_info is X_32 
and 

the cur_was_weight_val of cur _was_ i nf o is X_33 and 
the cwpd_weight_val of curwaspd_info is X_34 and 
the paid_5atis_weight_val of pa i d_sa t i s_ i nf o is X_35 
and 

the paid_acct_weight_val of paid_acct_info is X _36 and 
the pd_not_aa_weight_val of pd_not_aa_info is X_37 and 
the pacc_wpd_weight_val of pacc_wpd_info is X_38 and 
the pacc_wdel_weight_val of pacc_wdel_info is X_39 and 
the pd_chg_of f _weight_va 1 of pd_chg_of f_inf o is X_<40 
and 

the pd_repo_weight_val of pd_repo_info is X_4-l and 
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the pd_co 1 1 _ac_we i ght_va 1 of pd_col l_ac_info is X_42 
and 

the no t pdaa_we i gh t _ va 1 of notpdaa_info is X_43 and 
the pd_f orec 1 o_we i gh t_va 1 of pd_forec lo_i nfo is X_44 
and 

2_3=X_30+X_31+X_32+X_33+X_34+X_35+X_36+X_37+X_38+ 

X_39+X_40+X_41+X_42+X_43+X_44. 

the set_of_del i nq_acc t s_we igh t _va 1 of cone 1 us ion_ i nf o 
i s Z_4 
if 

the del inq_weight_val of del inq_info is X_45 and 
the accpd_weight_val of accpd_info is X_46 and 
the vo 1 nrepo_we i gh t_va 1 of vo 1 nrepo_ i nf o is X_47 and 
the foreclosure_weight_val of f orec 1 osure_ i nfo is X_4B 
and 

the repo_weight_val of repo_info is X_49 and 
the pdbydlr_weight_val of pdbydlr_info is X_50 and 
the col 1 _acc t_weight_va 1 of col l_acct_info is X_51 and 
the charge_off_weight_val of charge_of f _ i nf o is X_52 
and 

the c lose_np_aa_weight_val of c 1 ose_np_aa_ i nf o is X_53 
and 

the 5cnl_weight_val of scnl_info is X_54 and 
the fore_proc_weight_val of fore_proc_info is X_55 and 
the i nsc 1 a im_we i gh t_va 1 of i nsc 1 a i m_ i nf o is X_56 and 
the gov_c 1 a i m_we i gh t _va 1 of gov_claim_info is X_57 and 
Z_4=X_45+X_46+X_47+X_48+X_49+X_50+X_51+X_52+X_53+ 
X_54+X_55+X_56+X_57. 

the set_of_misc_pr i vate_i tems_weight_val of 
cone lus i on_ i nfo is Z_5 
i f 

the settled_weight_val of settled_info is X_58 and 
the sen 1 _nw 1 oc_wei gh t_va 1 of sen 1 _nw 1 oc_ i nf o is X_59 
and 

the co_now_pay_weight_val of co_now_pay_info is X_60 
and 

the ref inanced_weight_val of ref inanced_info is X_61 
and 

the cr_cd_lost_weight_val of cr _cd_ 1 os t_ i nf o is X_62 
and 

the clos_inac_weight_val of c 1 os_ i nac_ i nf o is X_63 and 
the transfered_weight_val of transfered_info is X_64 
and 

the too_new_rt_weight_val of too_new_rt_info is X_65 
and 

the deceased_wei gh t_va 1 of deceased_info is X_66 and 
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the cr_ln_clos_weight_val of c r_ 1 n_c 1 os_ i nf o is X_<S7 
and 

the redmd_repo_weight_val of redmd_repo_ i nf o is X_68 
and 

the cr _ 1 n_rnst_we i gh t_va 1 of cr_ln_rnst_info is X_69 
and 

the inq_weight_val of inquiry_info is X_70 and 
the superpayer_weight_val of superpayer_info is X_71 
and 

2_5= X _58+X _59+X_£jO+X_<S 1 + X_<£j2 + X_<S3+X_£i4 + X_£i5+X_<S<£j+ 
X_67+X_68+X_69+X_70+X_71 . 



the bk 1 iqreo_weight_val of bk 1 iqreo_i nf o is X 
if 

the bkliqreo_n of bk 1 iqreo_info is N_1 and 
weight_per_status(bkl iqreo , WT_1 ) and 
X = N_ 1 *UIT_ 1 . 

the settled_weight_val of settled_info is X 
i f 

the settled_n of settled_info is N_1 and 
weight_per_status ( set t led , WT_ 1 ) and 
X = N_1 *UJT_1 . 



the bk_ad j_p ln_weight_val of bk_ad j_p ln_inf o is X 
if 

the bk_adj_pln_n of bk_ad j_p 1 n_inf o is N_1 and 
weight _per_status ( bk_ad j _p 1 n , UIT_1 ) and 
X = N_ 1 *WT_ 1 . 



the scnl_nwloc_weight_val of scnl_nwloc_inf o is X 
i f 

the scnl_nwloc_n of scnl_nwloc_inf o is N_1 and 
weight_per_status(scnl_nwloc , L»JT_ 1 ) and 
X = N_1*WT_1. 



the co_now_pay_weight_val of co_no w_pay_ i nf o is X 
i f 

the co_now_pay_n of co_now_pay_ inf o is N_1 and 
weight_per_status(co_now_pay,WT_l ) and 
X = N_1*WT_1. 

the fore_proc_weight_val of fore_proc_info is X 
i f 

the fore_proc_n of fore_proc_info is N_1 and 
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weight_per_status(fore_proc , WT_1 ) and 
X = N_1*WT_1 . 



the go v_c 1 a i m_we i gh t_va 1 of gov_c 1 aim_ inf o is X 
if 

the gov_claim_n of go v_c 1 a im_ i nf o is N_1 and 
we ight_per_status(gov_ claim, UJT_1) and 
X = N_1*WT_1 . 



the c 1 ose_np_aa_we i gh t_va 1 of close_np_aa_info is X 
if 

the close_np_aa_n of c 1 ose_np_aa_ i nf o is N_1 and 
we ight_per_status(close_np_aa> WT_ 1 ) and 
X = N_1*UJT_1 . 

the scnl_weight_val of scnl_info is X 
i f 

the scnl_n of scnl_info is N_1 and 
weight_per_status(scnl , WT_1 ) and 
X = N_ 1 *WT_ 1 . 



the t'ed_tax_ln_weight_val of fed_tax_ln_info is X 
if 

the fed_tax_ln_n of fed_tax_ln_info is N_1 and 
wei gh t_per_st at us (fed_tax_ln,UJT_l) and 
X = N_1*WT_1. 



the fed_tax_rel_weight_val of fed_tax_rel_info is X 
i f 

the f ed_tax_rel _n of fed_tax_rel_info is N_1 and 
weight_per_status(fed_tax_rel , WT_ 1 ) and 
X = N_1*UIT_1. 



the judgmt_sat_weight_val of j udgm t _sat _ i nf o is X 
if the judgmt_sat_n of judgmt _sat_ i nf o is N_1 and 
weight_per_status( judgmt_sat , WT_ 1 ) and 
X = N_1*WT_1. 



the judg_vacat_weight_va 1 of judg_vacat_ i nf o is X 
i f 

the judg_vacat_n of judg_vacat_info is N_1 and 
weight_per_status( judg_vacat ,WT_1 ) and 
X = N_1*WT_1. 
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the mech_lien_weight_val of mech_ 1 i en_ i nf o is X 
i f 

the mech_lien_n of mech_ 1 i en_ i nf o is N_1 and 
weight_per_status(mech_l ien, WT_1 ) and 
X = W_1*WT_1 . 



the mech_rele_weight_val of mech_rele_ info is X 
i f 

the mech_rele_n of mech_re 1 e_ i nf o is N_1 and 
weight_per_status(mech_rele,WT_l ) and 
X = N_1*WT_1 . 



the mn_mtg_f i l_weight_val of mn_mtg _f i 1 _ i nf a is X 
i f 

the mn_mtg_fil_n of mn_mtg _f i 1 _ i nf o is N_1 and 
weight_per_status (mn_mtg_f i 1 ,WT_1 ) and 
X = N_1*WT_1 . 



the nt_respon_weight_va 1 of nt_respon_ i nf o is X 
if 

the nt_respon_n of nt_respon_ i nf o is N_1 and 
weight_per_status ( nt_respon , WT_ 1 ) and 
X = N_1*WT_1 . 



the stat_tx_ln_weight_val of stat_tx_ln_info is X 
if 

the stat_tx_ln_n of s t a t_t x_ 1 n_ i nf o is N_1 and 
weight_per_status(stat_tx_ln,WT_l ) and 
X = N_ 1 *WT_ 1 . 



the sta_tx_rel_weight_val of sta_tx_rel_info is X 
if 

the sta_tx_rel_n of sta _t x_re 1 _ i nf o is N_1 and 
we ight_per_status(sta_tx_rel , WT_ 1 ) and 
X = N_1*WT_1 . 

the su i t_d i smd_we i gh t _va 1 of su i t_d i smd_ i nf o is X 
i f 

the suit_dismd_n of su i t _d i smd_ i nf o is N_1 and 
weight_per_status(suit_di smd , WT_ 1 ) and 
X = N_1*WT_1 . 

the wage_asign_weight_val of wage_asign_info is X 
if 
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the wage_asign_n of wage_asign_info is N_1 and 
weight_per_5tatu5(wage_asign,WT_l ) and 
X = N_1*WT_1 . 



the wa_release_weight_val of wa_release_info is X 
if 

the wa_release_n of wa_release_info is N_1 and 
we i gh t _per_s t atus ( wa_re 1 ease , WT_ 1 ) and 
X = N_1*WT_1 . 



the ref i nanced_we i gh t _va 1 of ref inanced_i nfo is X 
if 

the ref inanced_n of ref inanced_info is N_1 and 
we ight_per_status(ref inanced )WT_1 ) and 
X = N_1*WT_1 . 



the cr_cd_lost_weight_val of cr_cd_lost_info is X 
if 

the cr_cd_lost_n of cr _cd_ 1 ost _ i nf o is N_1 and 
weight_per_status(cr_cd_lost jUIT_l ) and 
X = N_ 1 *WT_ 1 . 



the clos_inac_weight_val of c 1 os_ i nac_ i nf o is X 
i f 

the clos_inac_n of c los_ i nac_ i nf o is N_1 and 
weight_per_status(clos_i nac , WT_ 1 ) and 
X = N_ 1 *WT_ 1 . 



the transfered_weight_val of transf ered_inf o is X 
i f 

the transfered_n of tr ansf er ed _ i nf o is N_1 and 
weight_per_status( transf ered >WT_1 ) and 
X = N_1 *WT_1 . 



the too_new_r t_we ight_val of too_new_rt_info is X 
l f 

the too _new_r t_n of too_new_r t_ i nf o is N_ 1 and 
weight_per_status( t oo_new_r t » WT_ 1 ) and 
X = N_ 1 -*WT_ 1 . 

the pa id_sat i s_weight_val of pa id_sa t i s_ i nf o is X 
i f 

the paid_sat is_n of pa id_sat i s_ i nf o is N_1 and 
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wei gh t_per_s tatus ( pai d_sat i s , WT_ 1 ) and 
X = N_1*WT_1 . 



the paid_acct_weight_val of paid_acct_inf o is X 
i f 

the paid_acct_n of pa i d_acc t_ i nf o is N_1 and 
weight_per_status( paid_acct , WT_1 ) and 
X = N_1*WT_1 . 



the deceased_we i gh t _va 1 of deceased_ i nf o is X 
if 

the deceased_n of deceased_ i nf o is N_1 and 
weight_per_status( deceased , WT_ 1 ) and 
X = N_1*WT_1 . 

the cr_ln_clos_weight_val of cr_ 1 n_c 1 os_ i nf o is X 
i f 

the cr_ln_clos_n of cr_ 1 n_c 1 os_ i nf o is N_1 and 
weight_per_status(cr_ln_clos,WT_l ) and 
X = N_1*WT_1 . 



the redmd_repo_weight_val of redmd_repo_ i nf o is X 
if 

the redmd_repo_n of redmd_repo_i nf o is N_1 and 
weight_per_status(reddid_repo , WT_1 ) and 
X = N_1 *U)T_1 . 

the cur_was_col_weight_val of cur_was_col_info is X 
i f 

the cur_was_col_n of cur_was_co 1 _ i nf o is N_1 and 
weight_per_5tatus(cur_was_col ,WT_1 ) and 
X = N_1*WT_1 . 



the cr_in_rnst_weight_val of cr_ 1 n_rns t _ i nf o is X 
i f 

the cr_ln_rnst_n of cr_ln_rnst_info is N_1 and 
weight_per_status(cr_ln_rnst,WT_l ) and 
X “ N_1*UIT_1 - 



the cur_was_for_weight_val of cur_was_for_info is X 
if 

the cur_was_for_n of cur_was_for_info is N_1 and 
we igh t_per _status ( cur_was_f or ,WT_1 ) and 
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N_1*WT_1 . 



the pd_not_aa_weight_val of pd_no t_aa_i nf o is X 

If 

the pd_not_aa_n of pd_not_aa_info is N_1 and 
weight_per_status(pd_not_aa,WT_l ) and 
X = N_1 *WT_1 . 



the city_tx_ln_weight_val of c i t y_t x_ 1 n_ i nf o is X 
1 f 

the city_tx_ln_n of c i ty_t x_ 1 n_ i nf o is N_1 and 
weight_per_statas(city_tx_ln,WT_l ) and 
X = N_1*WT_1 . 

the c i ty_t x _re 1 _we i gh t _va 1 of c i ty_t x_re 1 _ i nf o is X 
if 

the city_tx_rel_n of c i t y_ t x_re 1 _ i nf o is N_1 and 
weight_per_status(city_tx_rel , WT_ 1 ) and 
X = N_ 1 *WT_ 1 . 

the consel_ser_weight_val of conse 1 _ser_ i nf o is X 
i f 

the consel_ser_n of conse 1 _ser_ i nfo is N_1 and 
we ight_per_status( conse l_ser,WT_l) and 
X = N_1 +WT_ 1 . 



the co_tax_ln_weight_val of co_tax_ln_info is X 

' if 

the co_tax_ln_n of co_tax_ln_info is N_1 and 
we ight_per_status(co_tax_ln, WT_ 1 ) and 
X = N_1*WT_1 . 



the co_tax_rel_weight_val of co_tax_rel _ info is X 
if 

the co_tax_rel_n of co_tax_re 1 _ i nf o is N_1 and 
we ight_per_status(co_tax_rel ,WT_1 ) and 
X = N_1 *WT_1 . 

the pd_foreclo_weight_val of pd_foreclo_info is X 
if 

the pd_foreclo_n of pd_forec lo_info is N_1 and 
we i gh t _per_s t atus ( pd_f orec 1 o , WT_ 1 ) and 
X = N_1*WT_1 . 
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the pd_chg_of f _we i qh t_va 1 of pd_chg_of f _info is X 
if 

the pd_chg_off_n of pd_chg_of f _ i nf o is N_1 and 
weiqht per status(pd chg off,WT 1) and 
X = N_1*WT_1. 



the pd_repo_we ight_val of pd_repo_info is X 
if 

the pd_repo_n of pd_repo_info is N_1 and 
we igh t_per_s tatus ( pd_repo , WT_ 1 ) and 
X = N_1*WT_1 . 



the pd_col l_ac_weight_val of pd_co 1 1 _ac_ i nf o is X 
if 

the pd_coll_ac_n of pd_co 1 1 _ac_i nf o is N_1 and 
weight_per_status<pd_coll _ac , WT_ 1 ) and 
X = N_1*WT_1 . 



the pacc_wdel_weight_val of pacc_wdel_inf o is X 
if 

the pacc_wde 1 60_n of pacc_wde 1 60_ i nf o is N_1 and 
we igh t_per_s tatus ( pacc_wde 160 , WT_1 ) and 
Pacc_wdel 60_WT = N_1*WT_1 and 
the pacc_wde 1 90_n of pacc_wde 190_ i nf o is N_2 and 
we i gh t_per_s tatus ( pace _wde 190 , WT_2 ) and 
Pacc_wde 1 90_WT = N_2*WT_2 and 
the pacc_wde 1 1 20_n of pacc_wde 1 120_i nf o is N_3 and 
weight_per_status(pacc_wdel 120,WT_3) and 
Pacc_wdel 120_WT = N_3*UIT_3 and 
the pacc_wdel 150_n of pacc_wde 1 1 50_ i nf o is N_A- and 
weight_per_status(pacc_wdel 150, WT_ < 4 ) and 
Pacc_wde 1 150_WT = N_4*WT_4- and 
the pacc_wde 1 1 80_n of pacc_wde 1 180_ i nf o is N_5 and 
weight_per_status ( pacc_wdel 180,WT_5) and 
Pacc_wdel 180_WT = N_5*WT_5 and 
X = Pacc_wdel60_WT + Pacc_wde 1 90_WT + Pacc_wde 1 1 20_WT 
Pacc_wde 1 1 50_WT + Pacc_wde 1 1 80_WT . 



the suit_weight_val of suit_info is X 
if 

the suit_n of suit_info is N_1 and 
weight_per_statu5 ( sui t , WT_1 ) and 
X = N_1*WT_1 . 

the pacc_wpd_weight_val of pacc_wpd_ i nf o is X 
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if 

the pacc_wpd_30_n of pacc_wpd_30_info is N_1 and 
weight_per_status(pacc_wpd_30,WT_l ) and 
Pacc_wpd_30_WT = N_1*WT_1 and 

the pacc_wpd_30by23_n of pacc_wpd_30by23_info is N 
and 

we ight_per_status ( pacc_wpd_30by23 , WT_2 ) and 
Pacc_wpd_30by23_WT = N_2*WT_2 and 
the pace _wpd_30byA_n of pacc_wpd_30by4_i nf o is N_4 
weight_per_status( pacc_wpd_30by< : + , WT_^+ ) and 
Pacc_wpd_30by<4_WT = N_4*WT_4 and 
the pacc_wpd_30by5_n of pacc_wpd_30by5_inf o is N_5 
weight_per_status( pacc_wpd_30by5 , WT_5 ) and 
Pacc_wpd_30by5_WT = N_5*WT_5 and 
the pacc_wpd_30by<b_n of pacc_wpd_30by6_ info is N_6 
weight_per_status( p ac c _ wpd _ 30b y 6 , WT_6 ) and 
Pacc_wpd_30by6_WT = N_6*WT_6 and 
X = Pacc_wpd_30_WT + Pacc_wpd_30by23_WT + 
Pacc_wpd_30by <: +_WT + 

Pacc_wpd_30by5_WT + Pacc_wpd_30by6_WT . 

the accpd_weight_val of accpd_info is X 
if 

the accpd_30_n of accpd_30_ i nf o is N_1 and 
weight _per_status( accpd_30 , WT_ 1 ) and 
Accpd_30_WT = N_ 1 *UT_ 1 and 
the accpd_30by2_n of accpd_30by2_ i nf o is N_2 and 
weight_per_status( accpd_30by2 , WT_2 ) and 
Accpd_30by2_WT = N_2*WT_2 and 
the accpd_30by3_n of accpd_30by3_ i nf o is N_3 and 
weigh't_per_status ( ac c pd _ 30b y 3 , WT_3 ) and 
Accpd_30by3_WT = N_3*WT_3 and 
the accpd_30by4_n of accpd_30by4_ i nf o is N_4 and 
weight_per_status( accpd_30by^+ , WT_A ) and 
Accpd_30by^_UT = N_A*WT_4 and 
the accpd_30by5_n of accpd_30by5_ i nf o is N_5 and 
we ight_per_status(accpd_30by5, WT_5 ) and 
Accpd _30by5_WT = N_5*WT_5 and 
the accpd_30by6_n of accpd_30by<b_ i nf o is N_<fs and 
weight_per_status( accpd_30by6 , WT_6 ) and 
Accpd_30by6_WT = N_6*WT_6 and 
X = Accpd_30_WT + Accpd_30by2_UT + Accpd_30by3_WT 
Accpd_30by <: +_WT + Accpd_30by5_WT + Accpd_30by6_WT . 

the c wpd_we i gh t_va 1 of curwaspd_ i nf o is X 
if 

the c wpd _n of cwpd_info is N_1 and 
we igh t_per_st a tus ( c wpd , WT_ 1 ) and 
Cwpd _WT = N_ 1 *WT_ 1 and 
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the cwpd_30_n of cwpd_30_info is N_2 and 
we i gh t _per_st at us ( cwpd_30 , l\l T_2 ) and 
Cwpd_30_WT = N_2*WT_2 and 
the cwpd_30by2_n of c wpd _30by2_ i nf o is N_3 and 
we ight_per_status< c wpd_30by2 , WT_3 ) and 
Cwpd_30by2_WT = N_3*WT_3 and 
the cwpd_30by3_n of cwpd_30by3_info is N_4 and 
weight _per_sta tus ( cwpd_30by3 , WT_4 ) and 
Cwpd _30by3_WT = N_>*WT_> and 
the c wpd _30by < 4_n of cwpd_30by4_i nfo is N_5 and 
we ight_per_status( cwpd_30by4- , WT_5 ) and 
Cwpd_30by4_WT = N_5*WT_5 and 
the cwpd_30by5_n of cwpd_30by5_ inf o is N_6 and 
weight_per_status( cwpd_30by5 , WT_6 ) and 
Cwpd _30by5_kJT = N_6*WT_6 and 
the cwpd_30by6_n of cwpd_30by6_ i nf o is N_7 and 
weight_per_status( cwpd_30by6 , WT_7 ) and 
Cwpd_30by6_WT = N_7*WT_7 and 
X = Cwpd_WT + Cwpd _30_WT + Cwpd_30by2_WT + 
Cwpd_30by3_UJT + 

Cwpd_30by4_WT + Cwpd_30by5_WT + Cwpd_30by<b_WT . 



the del i nq_we i gh t _va 1 of delinq_info is X 
if 

the d_60_n of d_«SO_info is N_1 and 
wei gh t_per _status < de 1 i nq_60 , UIT_ 1 ) and 
D_60_WT = N_ 1 *WT_ 1 and 
the d_90_n of d_90_info is N_2 and 
weigbt_per_status(del i nq_90 , WT_2 ) and 
D_90_WT = N_2*WT_2 and 
the d_120_n of d_120_info is N_3 and 
we ight_per_status(del inq_l 20 , WT_3 ) and 
D_ 1 20_WT = N_3*UIT_3 and 
the d_150_n of d_150_info is N_^+ and 
we i gh t _per _status (del i nq_ 1 50 , WT_4 ) and 
D_150_WT = N_4-*WT_4- and 
the d_180_n of d_180_info is N_5 and 
we igh t_per_status ( de 1 i nq_ 1 80 , WT_5 ) and 
D_180_WT = N_5*UIT_5 and 

X = D_60_WT + D_90_WT + D_120_WT + D_150_WT + D_180_WT. 



the cur_was_weight_val of cur_was_info is X 
if 

the c_w_60_n of c_w_60_info is N_1 and 
we igh t_per_status ( c_w_60 , WT_ 1 ) and 
C_w_60_WT = N_1*WT_1 and 
the c_w_90_n of c_w_90_info is N_2 and 



118 



and 



weight_per_status( c_w_90 , WT_2 ) and 
C_w_90_WT = N_2*WT_2 and 
the c_w_ 1 20_n of c_w_120_info is N_3 
we igh t_per_status ( c_w_l 20 , WT_3 ) and 
C_w_120_WT = N_3*WT_3 and 
the c_w_150_n of c_w_150_info is N_4 and 
weight_per_status(c_w_150,WT_4) and 
C_w_ 1 50_WT = N_4*WT_4 and 
the c_w_10O_n of c _w_ 1 80_ info is N_5 and 
weight_per_status ( c_w_180 , WT_5 ) and 
C_w_ 1 80_UIT = N_5*WT_5 and 
X = C_w_<S0_WT + C_w_90_WT + C_w_120_U)T + 
C_w_150_WT + C_w_180_WT . 



the pdbyd lr_weight_va 1 of pdbydlr_info is X 

if the pdbydlr_n of pdbyd 1 r_ i nf o is N_1 and 

weight_per_status(pdbydlr ,WT_1 ) and 
X = N_1*WT_1 . 



the col l_acct_weight_val of col l_acct_info is X 
i f 

the col l_acct_n of- col l_acct_info is N and 
weight_per_status(col l_acct , WT ) and 
X = |\|-*WT. 



the charge_off_weight_val of charge_of f _ i nf o is X 
if 

the charge_off_n of charge_of f _ i nf o is N and 
weight_per_status(charqe_off,UJT) and 
X = N*WT. 

the inq_we ight_val of inquiry_info is X 
i f 

the no_of_inq of inquiry_info is N and 
weight_per_status( inquiry, WT) and 
X = N*WT. 

the curr_acct_n_weight_val of super payer _ i nfo is X 
it 

the curr_acct_n of superpayer _ i nfo is N and 
weight_per_status(curr_acct,WT) and 
X = N*WT. 

the superpayer _we i gh t_va 1 of superpayer _ i nf o is X 
i f 

the month 1 y_payment of the superpayer _ i nf o is E and 
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the month 1 y_i ncome of the per sona 1 _ i nfo is I and 
E > I and weight_for_superpayer ( X ) . 

the superpayer _we ight_val of super payer _ i nfo is X 
if 

the month 1 y_payment of the superpayer _ i nf o is E and 
the month 1 y_i ncome of the personal_info is I and 
E < I and 
X = 0. 

month 1 y_payment of super payer _ i nfo is E 
if 

ssn of per sona 1 _ i nfo is SSN and 
compute_total_month ly_payment ( SSN , E ) . 



month 1 y_ i ncome of per sona 1 _ i nfo is I 
i f 

ssn of per sona 1 _ i nfo is SSN and 
compute_discretionary_income(SSN, I ) . 



the insc 1 a im_we i gh t_va 1 of i nsc 1 a i m_ i nf o is X 
i f 

the insclaim_n of i nsc 1 a i m_ i nf o is N_1 and 
weight_per_status( insclaim,WT_l ) and 
X = N_ 1 *UJT_ 1 . 

the no tpdaa_we i gh t_va 1 of notpdaa_info is X 
i f 

the notpdaa_n of notpdaa_info is N_1 and 
we igh t_per _status ( no tpdaa , WT_ 1 ) and 
X = N_1*WT_1. 

the vo 1 nr epo_we i gh t _va 1 of vo lnrepo_ inf o is X 
if 

the volnrepo_n of vo 1 nr epo_ i nf o is N_1 and 
weight_per_status(volnrepo,WT_l ) and 
X = N_ 1 *WT_ 1.. 



/* CRD13.TAX (TAXONOMY) How the knowledge is 
represented*/ 

type weight_pt_info = role, 
type cut_off_info = role, 
type customer _prof i le_info = role, 
type superpayer _ i nf o = role. 
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type bankrupt_info = role, 
type currency_info = role, 
type bk_already_info = role. 

type trw_info = role. 

type individual_info = role. 

type cone lusion_info = role. 

type personal_info = role, 
type inquiry_info = role, 
type weiqht_pt_val = 

[extreme ly_low,very_low, low,moderatel y_h i gh , 

high, very _high, ex tr eme ly _h igh,alarmingly_high3 . 
type pb_cut_off_val = numeric, 
type ex tremely_h igh_cut_off_val = numeric, 
type very_h i gh _cut_o f f _va 1 = numeric, 
type h igh_cut_off _val = numeric, 
type moderately_high_cut_off_val = numeric, 
type low_cut_off_val = numeric, 
type very_low_cut_off_val = numeric, 
type extremely_low_cut_off_val = numeric. 

type month 1 y_payment = numeric, 
type month 1 y_ i ncome = numeric, 
type ssn = numeric, 
type sal_step = numeric, 
type zip = numeric. 

type m_status = Csingle,married,divorced] . 
type dob = numeric, 
type concluded = 

[too_many_accts, super payer , normal satisfactory, 
poor ,very_poor , serious, 

critical ,potential_bankrupt,very_cr itical 3 . 

type curr_acct_n = numeric. 

type curr_acct_n_weight_val = numeric. 

type cur_was_vals = C 60 , 90 , 1 EG , 1 50 , 1 80 , f or , co 1 3 . type 
paid_vals = 

[90, 120, 150, ISO, collac, repo, chgoff, for eclo ,bydler ] . 

type del inq_vals = [60,90,120,150,1803. 
type del inq_was_vals = [90,1203. 
type bk_vals = 

[bk_7_file , bk_7_d isc ,bk_7_dism,bk_ll_file, 
bk_li_disc,bk_ll_di sm ,bk_13_fi le,bk_13_di sm , 
b k _ 1 3_comp ,not_bankrupt3 . 
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type 


CO 


nc_bank 


= C bk_red , bk_c 


type 


cu 


rr _acct_ 


i nf o = role. 


type 


cur_was_info = role. 


type 


de 


linq_info = role. 


type 


pa 


i d_ i nf o 


= role. 


type 


CO 


1 l_acct_ 


i nf o = ro le . 


type 


x _ 


30_day _d 


el_info = rol< 


type 


pd 


_co 1 1 _ac 


_ i nf o = role. 


type 


ch 


arge_off 


_ i nf o = role. 


type 


bk 


_ 1 iq_reo 


_info = role. 


type 


f o 


rec 1 osur 


e_info = role 


type 


judgment_i 


nfo = role. 


type 


repo_i nf o 


= role. 


type 


pdbydlr_info = role. 


type 


no 


_of _inq 


= numeric. 


type 


c_ 


w_60_info = role. 


type 


c_ 


w_90_info = role. 


type 


c_ 


w_120_info = role. 


type 


c_ 


w_150_info = role. 


type 


c_ 


w_ 1 80_ i n 


f o = role. 


type 


c _ 


w_60_n = 


numer i c . 


type 


c_ 


w_60_a = 


numer ic . 


type 


c_ 


w_90_n = 


numer i c . 


type 


c_ 


w_90_a = 


numer i c . 


type 


c_ 


w_120_n 


= numeric. 


type 


c _ 


w_ 1 20_a 


= numeric. 


type 


c_ 


w_150_n 


= numeric. 


type 


c_ 


w_150_a 


= numer i c . 


type 


c_ 


w_ 1 80_n 


= numer ic . 


type 


c_ 


w_ 1 80_a 


= numeric. 


type 


d_ 


60_ i nf o 


= role. 


type 


d_ 


90_ i nf o 


= role. 


type 


d_ 


1 20_ i nf o 


= role. 


type 


d_ 


1 50_i nf o 


= role. 


type 


d_ 


1 80_ i nf o 


= role. 


type 


d_ 


60_n = numeric. 


type 


d_ 


60_a = numeric. 


type 


d_ 


90_n = numeric. 


type 


d _ 


90_a = numeric. 


type 


d_ 


1 20_n = 


numer i c . 


type 


d _ 


1 20_a = 


numer i c . 


type 


d_ 


1 50_n = 


numer i c . 


type 


d_ 


1 50_a = 


numer i c . 


type 


d_ 


1 80_n = 


numer i c . 


type 


d_ 


1 80_a = 


numer i c . 


type 


pdbyd 1 r _n 


= numer ic . 


type 


pdbyd lr_a 


= numeric. 



orange 



] . 
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type i5b:_ecui;v_ratio = numeric, 
type bk_lia_reo_n = numeric, 
tvce coil_aCct_n = numeric, 
type col l_acct_a = numeric, 
type x_30_aay_Ce i _n = numeric, 
tvce x_30_dav_Gel_a = numeric, 
tyce carr_acct_n = numeric, 
type c ver a 1 I _we i qn t _va 1 = numeric, 
tvce pud 1 ic_record_va 1 = numeric, 
tvoe private_recoro_val = numeric. 

tvce set_o T *_bkrpt5_anii_liens_weignt_val = numeric, 
tvce 5et_cf _misc_Dub 1 ic_i tems_weight_val = numeric 
type se t _of _curren;_anc_oa id_accts_weight_val = 
numer ic . 

type set_of _bel inc_accts_weiqht_val = numeric. 

type set _of _m isc_private_i tems_we ignt_vai = numer i 

type Gel i nq_we i gh t _va 1 - numeric. 

type cur_was_weign:_val = numeric. 

type col l_acct_weight_val = numeric. 

type od_coil_ac_n = numeric. 

type pb_coil_ac_a = numeric. 

type oc_co 1 I_ac_weignt_val = numeric. 

tvce cnarge_o^f_n = numeric. 

type cmarge_ofr_a - numeric. 

type charge_off_*<eight_val = numeric. 

type i nq_wei gn t_va 1 = numeric. 

type superpayer _we i gh t_va I = numeric. 

type ~or ec I osure_we iqnt_val = nume^ i c . 

type judgment_weight_val = numeric. 

type repo_weight_val = numeric. 

type pdbyd 1 r _we i gh t_va 1 = numeric. 

type i nsc 1 a i m_ i nf o = role. 

tvce insclaim_n = numeric. 

type insclaim_a = numeric. 

type i nsc 1 a im_we i gh t _va 1 = numeric. 

type notoaaa_ir:o = role. 

type notpdaa_n = numeric. 

t,-pe notpdaa_a = numeric. 

type notpdaa_weign:_val = numeric. 

t oe 1 nr ecc _ i nr □ = -ole. 

tvpe volnrepon = numeric. 

t/oe voinrepc_a = numeric. 

tvpe /olnreoc_weignt_val = numeric. 

type cwpc_ws ignt_val = numeric. 

type cur waspd_i nf o = role. 

type cwpc_ l n* o = role. 

type cwod_30_i nf o = role. 

tvpe cwpd_30oyS_info = role. 

type cwpd_30Py3_inf o = role. 
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type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 



= numeric. 

= numeric. 

= numeric. 

= numer i c . 

= numeric. 

= numer i c . 

= numeric. 

= numeric, 
val = numeric. 



cwpd_30by4_i nf o = role. 
cwpd_30by5_info = role. 
cwpd_30by£>_ i nf o = role. 
cwpd_n = numeric. 
cwpd_a = numeric. 
cwpd_30_n = numeric. 
cwpd_30_a = numeric. 
cwpd_30by2_n = numeric. 
cwpd_30by2_a = numeric. 
cwpd_30by3_n 
cwpd_30by3_a 
cwpd_30by4_n 
cwpd_30by4_a 
cwpd_30by5_n 
cwpd_30by5_a 
cwpd_30by6_n 
cwpd_30by6_a 
accpd_weight_ 
accpd_info = role. 
accpd_30_ i nf o = role. 
accpd_30by2_ i nf o = role. 
accpd_30by3_ i nf o = role. 
accpd_30by4_ i nf o = role. 
accpd_30by5_ i nf o = role. 
accpd_30by£>_i nf o = role. 
accpd_30_n = numeric. 
accpd_30_a = numeric. 
accpd_30by2_n = numeric. 
accpd_30by2_a 
accpd_30by3_n 
accpd_30by3_a 
accpd_30by4_n 
ac c pd _30by 4 _a 
accpd_30by5_n 
accpd_30by5_a 
ac cpd_30by6_n 
accpd_30by6_a 
pacc_wpd_info 
pacc_wpd_30_info = role. 
pacc_wpd_30by23_ i nf o = role. 
pacc_wpd_30by4_info = role. 
pacc_wpd_30by5_ i nf o = role. 
pacc_wpd_30by6_inf o = role. 
pacc_wpd_30_n — numeric. 
pacc_wpd_30_a = numeric. 
pacc_wpd_30by23_n = numeric. 
pacc_wpd_30by23_a = numeric. 
pacc_wpd_30by4_n = numeric. 
pacc_wpd_30by4_a = numeric. 



numer 1 c . 
numer i c . 
numer i c . 
numer i c . 
numer ic . 
numer i c . 
numer i c . 
numer i c . 
numer ic . 
role. 
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type pacc_wpd_30by5_n = numeric. 

type pacc_wpd_30by5_a = numeric. 

type pacc_wpd_30by6_n = numeric. 

type pacc_wpd_30by6_a = numeric. 

type pacc_wpd_weight_val = numeric. 

type suit_info = role. 

type suit_n = numeric. 

type suit_a = numeric. 

type sui t_weight_val = numeric. 

type pacc_wdel_info = role. 

type pacc_wde 1 60_ i nf o = role. 

type pace _wde 1 90_ i nf o = role. 

type pacc_wdel 120_info = role. 

type pacc_wdel 150_i nf o = role. 

type pacc_wdel 180_info = role. 

type pacc_wdel60_n = numeric. 

type pacc_wdel60_a = numeric. 

type pacc_wdel90_n = numeric. 

type pacc_wdel90_a = numeric. 

type pacc_wdell20_n = numeric. 

type pacc_wdell20_a = numeric. 

type pacc_wde 1 1 50_n = numeric. 

type pacc_wde 1 1 50_a = numeric. 

type pacc_wde 1 180_n = numeric. 

type pacc_wdell80_a = numeric. 

type pacc_wdel_weight_val = numeric. 

type pd_repo_info = role. 

type pd_repo_n = numeric. 

type pd_repo_a = numeric. 

type pd_repo_weight_val = numeric. 

type pd_chg_of f _i nf o = role. 

type pd_chg_off_n = numeric. 

type pd_chg_off_a = numeric. 

type pd_chg_off_weight_val = numeric. 

type pd_foreclo_info = role. 

type pd_foreclo_n = numeric. 

type pd_forec lo_a = numeric. 

type pd forec 1 o_we i gh t _va 1 = numeric. 

type bk 1 iqreo_ i nf o = role. 

type bkl iqreo_n = numeric. 

type bkliqreo_a « numeric. 

type bkl iqreo_weight_val = numeric. 

type settled_info = role. 

type settled_n = numeric. 

type settled_a = numeric. 

type settled_weight_val = numeric. 

type b k _ad j _p 1 n_ i nf o = role. 

type bk_adj_pln_n = numeric. 
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type 


bk_ad j_pln_a = numeric. 






type 


bk_ad j_p 1 n_weight_val = 


numer 


ic . 


type 


scnl_nwloc_info = rale. 






type 


scnl_nwloc_n = numeric. 






type 


scnl_nwloc_a = numeric. 






type 


scnl_nwloc_weiqht_val = 


numer 


ic . 


type 


co_now_pay_info = role. 






type 


co_now_pay_n = numeric. 






type 


co_now_pay_a = numeric. 






type 


co_now_pay_weight_val = 


numer 


i c . 


type 


fore_proc_info = role. 






type 


fore_proc_n = numeric. 






type 


tore_proc_a = numeric. 






type 


fore_proc_weight_val = i 


numer i 


c . 


type 


gov_claim_info = role. 






type 


gov_claim_n = numeric. 






type 


gov_claim_a = numeric. 






type 


gov_claim_weight_val = 


numer i 


c . 


type 


c lose_np_aa_info = role 






type 


close_np_aa_n = numeric 






type 


close_np_aa_a = numeric 






type 


close_np_aa_weight_val 


= numeric 


type 


scnl_info = role. 






type 


scnl_n = numeric. 






type 


scnl_a = numeric. 






type 


scnl_weight_val = numer 


ic . 




type 


ted_tax_ln_info = role. 






type 


fed_tax_ln_n = numeric. 






type 


fed_tax_ln_a = numeric. 






type 


fed_tax_ln_weight_val = 


numer 


i c . 


type 


fed_tax_rel_inf o = role 






type 


fed_tax_rel_n = numeric 






type 


fed_tax_rel_a = numeric 






type 


fed_tax_rel_weight_val 


= numeric 


type 


judgmt_sat_info = role. 






type 


judgmt_sat_n = numeric. 






type 


judgmt_sat_a = numeric. 






type 


judgmt_sat_weight_val = 


numer 


i c . 


type 


judg_vacat_ inf o = role. 






type 


judg_vacat_n = numeric. 






type 


judg_vacat_a = numeric. 






type 


judg_vacat_weight_val = 


numer 


i c . 


type 


mech_lien_info = role. 






type 


mech_lien_n = numeric. 






type 


mech_l ien_a = numeric. 






type 


mech _ 1 i en_we i gh t_va 1 = i 


numer i 


c . 


type 


mech_rele_info = role. 






type 


mech_rele_n = numeric. 
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tvoe 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
t ype 
type 




:,pe 

type 

else 

type 




type 

type 

type 

type 

type 



mecn_rele_a = numeric. 
mech_rele_wei ght_val = 
mn_mtg_r i 1 _i nm o = role. 
mn_mtq_~il_n = numeric. 
mn_mtg_~ i 1 _a = numeric. 
mn_mtg_f i 1 _we i gh t_va 1 = 
nz_res 2 on_infc = role. 
nt_respon_n = numeric. 
nt_respon_a = numeric. 
nt_rescon_weign:_val = 
stat_t x_ 1 n_i nf o = role. 
star_tx_ln_n = numeric. 
5:at_tx_in_a = numeric. 
stat_tx_ln_weight_val = 
5ta _tx_rel_info = role. 
sta_tx_rel_n = numeric. 
sta_tx_rel_a = numeric, 
5ta_tx_rel _we ight_val = 
suit_dismd_info = role, 
su i t_d i smd_n = numeric. 
suit_cismd_a = numeric, 
5iiit_dismd_weight_val = 
wage_asign_in -r o = role, 
wage_asign_n = numeric. 
wage_asign_a = numeric, 
wage_asign_wsight_val = 
wa_'"elease_info = role 
wa_release_n = numeric. 
wa_release_a = numeric, 
wa_r e 1 ease_we i gn t _va 1 = 
ref inanced_info = role 
r e - *' i nanced_n = numeric. 
refinanced_a = numeric 
’-efinanced_weigrit_val = 
cr_cd_lo5t_in T "o - role 
cr_cd_lcst_n = numeric, 
cr_cd_los;_a = numeric 
cr_cd_lost_^eignt_val - 
clos_inac_info = role. 
_ir,ac_n = numeric. 
clos_mac_a = numeric, 
c 1 os_i nac_we i gn t_va 1 = 
transf ered_inf o = role 
transfer ed_n = numeric, 
trao5fered_a = numeric 
transfer ed_wei gn t_va 1 = 
too_r.ew_rt_info = role 
too_new_rc_n = numeric, 



numer i c . 



numer ic 



numer i c . 



numer i c 



nume r i c 



numer ic 



numer i c 



numer ic 



numer i c 



numer i c 



numer i c . 



numer ic 
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type 


too_new_rt_a = numeric. 




type 


too_new_rt_weiqht_val = 


numer i c . 


type 


paid_sat i s_info = role. 




type 


paid_satis_n = numeric. 




type 


paid_satis_a = numeric. 




type 


paid_satis_weight_val = 


numer i c . 


type 


paid_acct_info = role. 




type 


paid_acct_n = numeric. 




type 


paid_acct_a = numeric. 




type 


paid_acct_weight_val = numeric. 


type 


cr_ln_clos_info = role. 




type 


cr_ln_clos_n = numeric. 




type 


cr_ln_clos_a = numeric. 




type 


cr_ln_clos_weight_val = 


numer i c . 


type 


deceased_info = role. 




type 


deceased_n = numeric. 




type 


deceased_a = numeric. 




type 


deceased_weight_val = numeric. 


type 


redmd_repo_inf o = role. 




type 


redmd_repo_n = numeric. 




type 


redmd_repo_a = numeric. 




type 


redmd_repo_weight_val = 


numer i c . 


type 


cur_was_col_info = role 




type 


cur _was_co 1 _n = numeric 




type 


cur_was_col_a = numeric 




type 


cur_was_col_weight_val : 


- numeric 


type 


cr_ln_rnst_info = role. 




type 


cr_ln_rnst_n = numeric. 




type 


cr_ln_rnst_a = numeric. 




type 


cr_ln_rnst_weight_val = 


numer i c . 


type 


cur_was_for_info = role 




type 


cur_was_for_n = numeric 




type 


cur_was_for_a = numeric 




type 


cur_was_for_weight_val = 


= numeric 


type 


pd_not_aa_i nfo = role. 




type 


pd_not_aa_n = numeric. 




type 


pd_not_aa_a = numeric. 




type 


pd_not_aa_weight_val = i 


numer ic . 


type 


c i ty_t x_ 1 n_ i nf o = role. 




type 


city_tx_ln_n = numeric. 




type 


city_tx_ln_a = numeric. 




type 


city_tx_ln_weight_val = 


numer i c . 


type 


c i ty_tx_rel_inf o = role 




type 


c i ty_t x_re 1 _n = numeric 




type 


c i ty _t x_r e 1 _a = numeric 




type 


city_tx_rel_weight_val = 


= numeric 



128 



type 

type 

type 

tyoe 

type 

type 

type 

type 

type 

type 

type 

type 



consel_ssr_info = role. 
consel_ser_n = numeric. 
conse!_ser_a = numeric. 
consel_ser_weight_val = 
co_tax_ln_info = role. 
co_tax_ln_n = numeric. 
co_tax_ln_a = numeric. 
co_tax_ln_weight_val = 
co_tax_rel_inf o - role. 
co_tax_rel_n = numeric. 
co_tax_rel_a = numeric. 
co_tax_rel_weight_val = 



numer i c . 



numer i c . 



numer i c . 



define primitive perserec with 

customer_prof i le_info = customer_prof i le and 
superpayer_i nf o = superpayer and 
bankrupt_inf o = bankrupt and 
weight_pt_info = weight_pt and 
cut_off_info = cut_off and 
cone lusion_info = conclusion. 

define primitive customer_pr of i 1 e with 
per sona 1 _ i nf o = personal and 
trw_info = trw. 

define primitive super payer with 
debt_equi ty_r at io = (0,3) and 
curr_acct_n = (0,100) and 

curr_.acct_n_weight_val = (0,1000) and 
month 1 y _payment = (0,20000) and 

superpayer _wei ght_va 1 = (0,1000). 

define primitive bankrupt with 

conc_bank = [ b k _r ed , b k_gr een , b k _ye 1 1 o w , b k _or ange 1 . 

define primitive weight_pt with 
weioht_pt_val = 

Lex t reme 1 y_ 1 ow , ver y_ low, low, moderate 1 y_h i gh , 

high, very _high ,ex t reme ly_high , alarmi ng 1 y_h i gh 1 . 

derine primitive cut_off with 

pb_cut_off_val = (399,901) and 

ex t reme 1 y _h i gh_cut_of f _va 1 = (200,250) and 

very_high_cut_off _val = (170,199) and 

h i gh_cut _of f _va 1 = (120,1^9) and 

moder ate 1 y_h i gh_cut_of f _va 1 = (100,119) and 

low_cut_off_val = (80,99) and 

very_ 1 ow_cut _of f _va 1 = (90,59) and 
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(0,39) . 



ex treme 1 y_ 1 ow_cu t _of f _va 1 = 

define primitive conclusion with 
concluded = 

[ too_many_accts , super payer , norma 1 , sat i sfactory , 
poor ,very_poor , ser ious , 

critical , potent ial_bankrupt, very_cri tical ] 
and 

overal l_weight_val = (0,10000) and 
pub 1 ic_record_va 1 = (0,10000) and 
pr ivate_record_val = (0,10000) and 
set_of _bkrpts_and_ 1 iens_weight_val = 
(0,10000) and 

set_of _m isc_pub 1 ic_ i tems_weight_val = 
(0,10000) and 

set_of _current_and_pa i d _acc t s_we igh t _va 1 = 
(0,10000) and 

set_of _del inq_accts_weight_val = (0,10000) 
and 

set_of _mi sc_pr i vate_i tems_weight_val = 

<0, 10000) . 

define primitive personal with 
ssn = (1,999999999) and 
zip = (10000,99999) and 

m_status = C s i ng 1 e , marr ied , d i vorced ] and 
dob = ( 1900, 1986) and 
month 1 y_ i ncome = (0,20000). 



define primitive trw with 

curr_acct_info = curr_acct and 
cur_was_info = cur_was and 
delinq_info = delinq and 
pdbydlr_info = pdbydlr and 
col l_acct_info = col l_acct and 
x_30_day_de 1 _ i nf o = x_30_day_del and 
bk_l iq_reo_info = bk_liq_reo and 
bk_vals = 

Lbk_7_file,bk_7_disc, b k_7_d ism,bk_ll_file,bk_ll_disc, 
bk_ll_dism,bk_13_fi le,bk_13_di sm ,bk_13_com- 
p,not_bankruptl 
and 

pd _co 1 1 _ac_ i nf o = pd_col l_ac and 
charge_of f _ i nf o = charge_off and 
forec losure_ i nf o = foreclosure and 
judgment_ i nf o = judgment and 
repa_info = repo and 
inquiry_info = inquiry and 
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i nsc 1 a i m_ i nf o = insclaim and 
notpdaa_info = notpdaa and 
volnrepa_info = volnrepo and 
curwaspd_i nf o = curwaspd and 
accpd_info = accpd and 
pacc_wpd_info = pacc_wpd and 
suit_info = suit and 
pd_repo_info = pd_repo and 
pd_chg_of f _i nf a = pd_chg_off and 
pd_f orec la _ i nf o = pd_foreclo and 
bk 1 iqreo_inf o = bkliqreo and 
pacc_wdel_info = pacc_wdel and 
settled_info = settled and 
bk_ad j_p ln_inf o = bk_adj_pln and 
scnl_nwloc_inf o = scnl_nwloc and 
co_now_pay_inf a = co_now_pay and 
fore_proc_info = fore_proc and 
gov_claim_infa = gov_claim and 
c lose_np_aa_i nf o = close_np_aa and 
scnl_info = scnl and 
fed_tax_ln_info = fed_tax_ln and 
fed_tax_rel_inf o = fed_tax_rel and 
judgmt_sat_inf o = judgmt_sat and 
judg_vacat_inf a = judg_vacat and 
mech_ 1 i en_ i nf o = mech_lien and 
mech_rele_info = mech_rele and 
mn_mtg_f i 1 _ i nf a = mn_mtg_fil and 
nt_respon_info = nt_respon and 
stat_tx_ln_inf o = stat_tx_ln and 
st a_t x_re 1 _ i nf □ =• sta_tx_rel and 
su i t_d i smd_ i nf o = suit_dismd and 
wage_as ign_ inf o = wage_asign and 
wa_r elease_inf o = wa_release and 
ref inanced_inf o = refinanced and 
cr_cd_lost_inf o = cr_cd_lost and 
clos_inac_info = clos_inac and 
transf ered_ i nf o = transfered and 
too _new_r t_ i nf o = too_new_rt and 
pa i d_sat i s_ i nf o = paid_satis and 
paid_acct_info = paid_acct and 
cr_ln_clos_info = cr_ln_clos and 
deceased_ i nf o = deceased and 
redmd_repo_info = redmd_repo and 
cur_was_col_info = cur_was_col and 
cr _ 1 n_r nst _ i nf o = cr_ln_rnst and 
cur _was_f or _ i nf a = cur_was_for and 
pd_not_aa_inf a = pd_not_aa and 
c i ty_ t x_ ln_ i nf o = city_tx_ln and 
city_tx_rel_info = city_tx_rel and 
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consel_ser_info = consel_ser and 
co_tax_ln_info = co_tax_ln and 
co_tax_rel_info = co_tax_rel . 



define primitive pacc_wdel with 

pacc_wdel60_info = pacc_wdel60 and 
pacc_wdel90_info = pacc_wdel90 and 
pacc_wdel 120_inf o = pacc_wdel 120 and 
pacc_wdel 150_info = pacc_wdell50 and 
pace _wde 1 180_ i nf o = pacc_wdel 180 and 
pacc_wdel_weight_val = (0,1000). 



define primitive 
pacc_wdel60_n 
' pacc_wdel60_a 



pacc_wdel60 with 
= (0,100) and 
= ( 0 , 10000 ). 



define primitive pacc_wdel90 with 
pacc_wde 1 90_n = (0,100) and 
pacc_wdel90_a = (0,10000). 



define primitive pacc_wdel 120 with 
paccwdel lS0_n = (0,100) and 
pacc_wdel I20_a = (0,10000). 



define primitive pacc_wdel 150 with 
pacc_wdel 150_n = (0,100) and 
pacc_wde 1 1 50_a = (0,10000). 



define primitive pacc_wdel 180 with 
pacc_wdel lB0_n = (0,100) and 
pacc_wdel 180_a = (0,10000). 



define primitive suit with 
suitn = (0,100) and 
suit a = (0,10000) and 
suit_weight_val = (0,1000). 



define primitive cur_was with 
c_w_60_ i nf a = c_w_60 and 
c_w_90_info = c_w_90 and 
c_w_ 1 20_ i nf o = c_w_120 and 
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c_w_150_info = c_w_150 and 
c_w_180_info = c_w_ 1 80 and 
cur_was_weight_val = (0,1000). 

define primitive c_w_60 with 
c_w_60_n = (0,100) and 
c_w_60_a = (0,10000). 

define primitive c_w_90 with 
c_w_90_n = (0,100) and 
c_w_90_a = (0,10000). 

define primitive c_w_120 with 
c _w_ 1 20_n = (0,100) and 
c_w_120_a = (0,10000). 



define primitive c_w_150 with 
c _w_ 1 50_n - (0,100) and 
c_w_ 1 50_a = (0,10000). 

define primitive c_w_180 with 
c_w_ 180_n = (0,100) and 

c _w_ 1 80_a = (0,10000). 



define primitive delinq with 
d_60_info = d_<b0 and 
d_90_info = d_90 and 
d_120_info = d_120 and 
d_150_infa = d_150 and 
d_l80_info = d_180 and 
del inq_weight_val = (0,1000). 



define primitive d_60 with 
d _60_ n = (0,100) and 

d_60_a = (0, 10000) . 



define primitive d_90 with 
d_90_n = (0,100) and 
d_90_a = (0, 10000) . 

define primitive d_120 with 
d_ 1 20_n = (0,100) and 
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d_120_a 



( 0 , 10000 ) . 



define primitive d_150 with 
d_150_n = (0,100) and 
d_150_a = (0, 10000) . 



define primitive d_180 with 
d_180_n = (0,100) and 
d_ 1 80_a = (0, 10000) . 



define primitive coll_acct with 
coll_acct_n = (0,100) and 
coll_acct_a = (0,10000) and 
co 1 1 _acc t _we i gh t_va 1 = (0,1000). 

define primitive x_30_day_del with 
x_30_day_de 1 _n = (0,100) and 
x_30_day_del_a = (0,10000). 

define primitive bk_liq_reo with 
bk_liq_reo_n = (0,100). 



define primitive curr_acct with 
curr_acct_n = (0,100). 

define primitive pd_coll_ac with 
pd_coll_ac_n = (0,100) and 
pd_coll_ac_a = (0,10000) and 

pd_co 1 1 _ac_wei gh t_va 1 = (0,1000). 

define primitive charge_off with 
charge_off_n = (0,100) and 

charge_off_a = (0,10000) and 

charge_of f _we i gh t_va 1 = (0,1000). 

define primitive inquiry with 
no of_inq = (0,100) and 
inq_weight_val = (0,1000). 

define primitive foreclosure with 

f orec 1 osur e_we i gh t_va 1 = (0,1000). 

define primitive judgment with 

judgment_weight_val = (0,1000). 
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define primitive reoo with 

repo_weight _val = (0,1000). 

define primitive pdbydlr with 
Ddbyd 1 r_n = (0,100' and 

pdbyd lr_a = (0,100000) and 
Ddbyd lr_weight_val = (0,1000). 

define primitive insclaim with 
i nsc 1 a i m_n = (0,100) and 

insclaima = (0,100000) and 
insclaim_weight_val = (0,1000). 

define primitive notpdaa with 
notpdaa_n = (0,100) and 
notpdaa_a = (0,100000) and 
no tpdaa_we igh t_va 1 = (0,1000). 

define primitive volnrepo with 
volnrepo_n = (0,100) and 
volnrspo_a = (0,100000) and 
vo 1 nr epo_we igh t_va 1 = (0,1000). 

define primitive curwaspd with 
cwpd_info = cwpd and 
cwpd_30_info = cwpd_30 and 
Cwpd_30by2_info = cwpd_30by2 and 
cwpd_30by3_ i nf o = cwpd_30by3 and 
cwpd_30by**_info = cwpd_30by*+ and 
cwpd_30by5_ i nf o — cwpd_30by5 and 
cwpd_30by6_info = cwpd_30by6 and 
cwpd_weight_val = (0,1000). 

define primitive cwpd with 
cwpd_n = (0,100) and 

cwpd_a = (0,10000). 

define primitive cwpd_30 with 
cwod _30_n = (0,100) and 

cwod_30_a = (0,10000). 

define primitive cwpd_30by2 with 
cwpa_30by2_n = (0,100) and 

cwDd_30by2_a = (0,10000). 

define orimidive cwod_30by3 with 
cwpd_30by3_n = (0,100) and 
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cwpd_30by3_a 



( O, 10000 ) . 



define primitive cwpd_30by4- with 
cwpd_30by4_n = (0,100) and 

cwpd ~30by4_a = (0,10000). 



define primitive cwpd_30by5 with 
cwpd_30by5_n = (0,100) and 
cwpd_30by5_a = (0,10000). 



define primitive cwpd_30by6 with 
cwpd_30by6_n = (0,100) and 
cwpd_30by6_a = (0,10000). 



define primitive accpd with 

accpd _30_ i nf o = accpd_30 and 
accpd_30by2_ i nf o = accpd_30byE and 
accpd_30by3_info = accpd_30by3 and 
accpd_30by<4-_ i nf o = accpd_30by4 and 
accpd_30by5_inf □ = accpd_30by5 and 
accpd_30by6_i nf o = accpd_30by6 and 
accpd_we igh t_val = (0,1000). 

define primitive accpd_30 with 
accpd_30_n = (0,100) and 
accpd_30_a = (0,10000). 



define primitive accpd_30byE with 
accpd_30by2_n = (0,100) and 
accpd_30by2_a = (0,10000). 



define primitive accpd_30by3 with 
accpd _30by3_n ft (0,100) and 
accpd_30by3_a = (0,10000). 

define primitive accpd_30by4 with 
accpd_30by4_n = (0,100) and 
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( 0 , 10000 ) . 



accpd_30by^+_a = 



define primitive accpd_30by5 with 
accpd_30by5_n = (0,100) and 
accpd_30by5_a = (0,10000). 



define primitive accpd_30by6 with 
accpd_30by6_n = (0,100) and 
accpd_30by6_a = (0,10000). 



define primitive pacc_wpd with 

pacc_wpd_30_ i nf o = pacc_wpd_30 and 
pace _wpd_30by23_i nfo = pacc_wpd_30by23 and 
pacc_wpd_30by4_info = pacc_wpd_30by4 and 
pacc_wpd_30by5_i nf o = pacc_wpd_30by5 and 
pacc_wpd_30by6_info = pacc_wpd_30by6 and 
pacc_wpd_weight_val = (0,1000). 

define primitive pacc_wpd_30 with 
pacc_wpd_30_n = (0,100) and 
pacc_wpd_30_a = (0,10000). 



define primitive p acc_wpd_30by23 with 
pacc_wpd_30by23_n = (0,100) and 
pacc_wpd_30by23_a = (0,10000). 



define primitive pacc_wpd_30by <: + with 
pacc_wpd_30by4_n = (0,100) and 
pacc_wpd_30by^_a = (0,10000). 



define primitive pacc_wpd_30by5 with 
pacc_wpd_30by5_n = (0,100) and 
pacc_wpd_30by5_a — (0,10000). 



define primitive pacc_wpd_30by6 with 
oacc_wpd_30by6_n = (0,100) and 
pacc_wpd_30by6_a = (0,10000). 



define primitive pd_repo with 
pd_repo_n = (0,100) and 

pd_repo_a = (0,10000) and 
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( 0 , 1000 ) . 



pd_repo_weight_val = 

define primitive pd_chg_off with 
pd chg_off_n = (0,100) and 

pd_chg_off_a = (0,10000) and 

pd_chg_of f _we i gh t_va 1 = (0,1000) 

define primitive pd_foreclo with 
pd_foreclo_n = (0,100) and 

pd_foreclo_a = (0,10000) and 

pd_foreclo_weight_val = (0,1000) 

define primitive bkliqreo with 
bkliqreo_n = (0*100) and 

bkliqreo_a = (0,10000) and 

bk 1 iqreo_we ight_val = (0,1000). 

define primitive settled with 
settled_n = (0,100) and 
settled_a = (0,10000) and 
settled_weight_val = (0,1000). 

define primitive bk_adj_pln with 
bk_adj_pln_n = (0,100) and 
bk_adj_pln_a = (0,10000) and 
bk_ad j_p 1 n_we i gh t_ va 1 = (0,1000) 

define primitive scnl_nwloc with 
scnl_nwlac_n = (0,100) and 

scnl_nwloc_a = (0,10000) and 
scnl_nwloc_weight_val = (0,1000) 

define primitive co_now_pay with 
co_now_pay_n = (0,100) and 
co_now_pay_a = (0,10000) and 
co_now_pay_weight_val = (0,1000) 

define primitive fore_proc with 
fore_proc_n = (0,100) and 
fore_proc_a = (0,10000) and 

fore_proc_weight_val = (0,1000). 
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define primitive gov_claim with 
gov_claim_n = (0,100) and 
gov_claim_a = (0,10000) and 
gav_claim_weight_val = (0,1000). 

define primitive close_np_aa with 
c lose_np_aa_n = (0,100) and 
c 1 o se_np_aa_a = (0,10000) and 
c lose_np_aa_weight_va 1 = (0,1000). 



define primitive scnl with 
scnl_n = (0,100) and 
scnl_a = (0,10000) and 
scnl_weight_val = (0,1000). 

define primitive fed_tax_ln with 
fed_tax_ln_n = (0,100) and 
fed_tax_ln_a = (0,10000) and 
f ed_tax_ 1 n_we i gh t_va 1 = (0,1000). 

define primitive fed_tax_rel with 
fed_tax_rel_n = (0,100) and 
f ed_tax_rel _a = (0,10000) and 

fed_tax_rel_weight_val = (0,1000). 

define primitive judgmt_sat with 
judgmt_sat_n = (0,100) and 
judgmt_sat_a = (0,10000) and 

judgmt_sat_weight_val = (0,1000). 

define primitive judg_vacat with 
judg_vacat_n = (0,100) and 
judg_vacat_a = (0,10000) and 
judg_vacat_weight_val = (0,1000). 

define primitive mech_lien with 
mech_lien_n = (0,100) and 
mech_lien_a = (0,10000) and 
mech_ 1 i en_we i gh t_va 1 = (0,1000). 

define primitive mech_rele with 
mech_rele_n = (0,100) and 

mech_rele_a = (0,10000) and 
mech_r e 1 e_we i gh t_va 1 = (0,1000). 

define primitive mn_mtg_fil with 
mn_mtg_f i l_n = (0,100) and 
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mn_mtg_f i l_a = (0,10000) and 
mn_mtg_f i l_weight_val = (0,1000) 

define primitive nt_respon with 
nt_respon_n = (0,100) and 
nt_respon_a = (0,10000) and 
nt_respon_we i ght_va 1 = (0,1000). 

define primitive stat_tx_ln with 
stat_tx_ln_n - (0,100) and 
stat_tx_ln_a = (0,10000) and 
stat_tx_ln_weight_val = (0,1000) 

define primitive sta_tx_rel with 
5ta_tx_rel_n - (0,100) and 
5ta_tx_rel_a = ( 0 , 10000 ) and 
sta_tx_rel_weight_val = (0,1000) 

define primitive suit_dismd with 
suit_dismd_n = (0,100) and 
suit_dismd_a = (0,10000) and 
sui t_d ismd_weight_val = (0,1000) 

define primitive wage_asign with 
wage_asign_n = (0,100) and 
wage_asign_a = (0,10000) and 
wage_asign_weight_val = (0,1000) 

detine primitive wa_release with 
wa_release_n = (0,100) and 
wa_release_a = (0,10000) and 

wa_release_weight_val = (0,1000) 

define primitive refinanced with 
ref inanced_n = (0,100) and 
ref inanced_a = (0,10000) and 
ref i nanced_we i gh t _va 1 = (0,1000) 

define primitive cr_cd_lost with 
cr_cd_lost_n - (0,100) and 

cr_cd_lost_a = (0,10000) and 

cr_cd_lost_weight_val = (0,1000) 

define primitive clos_inac with 
clos_inac_n = (0,100) and 

clo5_inac_a = ( 0 , 10000 ) and 
clos_inac_weight_val = (0,1000). 
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de-fine primitive transferee! with 
tr ansfered_n = (0,100) and 
transfered_a = (0,10000) and 
transfered_weight_val = (0,1000). 

define primitive too_new_rt with 
too_new_rt_n = (0,100) and 
too_new_rt_a = (0,10000) and 
too_new_r t_weight_val = (0,1000). 

deTine primitive paid_satis with 
paid_satis_n = (0,100) and 

paid_satis_a = (0,10000) and 
paid_satis_weight_val = (0,1000). 

define primitive paid_acct with 
paid_acct_n = (0,100) and 
pa id_acct_a = (0,10000) and 
paid_acct_weight_val = (0,1000). 

define primitive cr_ln_clos with 
cr_ln_clos_n = (0,100) and 
cr_ln_clos_a = (0,10000) and 
cr _ 1 n_c 1 os_we i gh t_va 1 = (0,1000). 

define primitive deceased with 
deceased_n = (0,100) and 

deceased_a = (0,10000) and 
deceased_weight_val = (0,1000). 

define primitive redmd_repo with 
redmd_repo_n = (0,100) and 

redmd_repo_a = (0,10000) and 
redmd_repo_weight_val = (0,1000). 

define primitive cur_was_col with 
cur_was_col_n = (0,100) and 

cur_was_col_a = (0,10000) and 

cur was _co 1 _we i gh t _va 1 = (0,1000). 

define primitive cr_ln_rnst with 
cr_ln_rnst_n = (0,100) and 
cr_ln_rnst_a = (0,10000) and 

cr_ln_rnst_weight_val = (0,1000). 

define primitive cur_was_for with 
cur_was_for_n - (0,100) and 

cur_was_f or a - (0,10000) and 

cur _was_f or _we i gh t _va 1 = (0,1000). 



141 



derine primitive pd_not_aa with 
pd_not_aa_n - (0,100) and 

pd_not_aa_a = (0,10000) and 

pd_no t _aa_we iqh t _va 1 = (0,1000). 

define primitive city_tx_ln with 
city_tx_ln_n = (0,100) and 
city_tx_ln_a = (0,10000) and 
c i ty_t x_ 1 n_we igh t _va 1 = (0,1000). 

define primitive city_tx_rel with 
c i ty_tx_re 1 _n = (0,100) and 
c i ty_tx_rel _a = (0,10000) and 

c i ty_ t x_r e 1 _we i gh t _va 1 = (0,1000). 

define primitive consel_ser with 
canse 1 _ser_n = (0,100) and 

consel_ser_a = (0,10000) and 
conse 1 _ser _we igh t _va 1 = (0,1000). 

define primitive co_tax_ln with 
co_tax_ln_n = (0,100) and 
co_tax_ln_a = (0,10000) and 
co_tax_ 1 n_we igh t_va 1 = (0,1000). 



define primitive co_tax_rel with 
co_tax_rel_n ~ (0,100) and 
co_tax_rel_a = (0,10000) and 
co_tax_rel_weight_val = (0,1000). 



/* END OF CODE */ 
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APPENDIX B 
TRW CREDIT REMARKS 

This appendix describes the 102 credit remarks 
currently used by TRW and employed in MFTES . They were 
included to broaden the program’s documentat i on and 
facilitate future maintenance efforts. 



ITEMS OF PRIVATE RECC3RD 



LR LD LOST: 
CLOSE INAC: 
TRANSFERED: 
TOO NEW RT: 
REFINANCED: 
CURR ACCT : 



PAID SATIS: 
PAID ACCT: 



CR LN CLOS: 



A copy of the credit profile has been 
sent to this credit grantor at their 
request . 

Credit card lost or stolen. 

Closed inactive account. 

Account transferred to another office. 
Too new to rate. 

Account renewed or refinanced. 

This is either an open or closed account 
in good standing. If the account is a 
credit card or charge account, it should 
be available for use and there may be a 
balance due. If the account is closed, 
there were no past due amounts reported 
and it was paid. 

Closed account/paid sat i sf actor y . 

Closed account/zero balance/not rated by 
credit grantor . 

Credit line c losed/reason unknown or by 
consumer r equest / there may be a balance 
due . 



DECEASED: 
CUR WAS DL: 


Consumer deceased. 
Current account was 


pas t due . 




CUR 


WAS 


30: 


Current account 


was 


30 


days 


past 


due 


CUR 


WAS 


30-2: 


Current account 


was 


30 


days 


past 


due 


LUR 


WAS 


30-3: 


twice . 

Current account 


was 


30 


days 


past 


due 


CUR 


WAS 


30-4: 


three t i mes . 
Current account 


was 


30 


days 


past 


due 


CUR 


WAS 


30-5: 


four times. 
Current account 


was 


30 


days 


past 


due 


CUR 


WAS 


30 + 6: 


f i ve t i mes . 
Current account 


was 


30 


days 


past 


due 



times or more. 



A3 



CUR WAS 60: 
CUR WAS 90: 
CUR WAS 120: 
CUR WAS 150: 
CUR WAS 180: 
REDMD REPO: 
CUR WAS COL: 

CR IN RNST : 

CUR WAS FOR: 
PD NOT AA: 

PD WAS 30: 

PD WAS 30-2: 

PD WAS 30-4: 

PD WAS 30-5: 

PD WAS 30+6: 

PD WAS 60: 

PD WAS 90: 

PD WAS 120: 
PD WAS 150: 
PD WAS 180: 
PD COLL AC: 

PD REPO: 

PD CHG OFF: 
PD FORECLO : 
PD BY DLER : 

BK LIQ REO: 

SETTLED: 

BK ADJ PLN : 

MG I PD AA: 

30 DAY DEL: 
30 2 TIMES: 
30 3 TIMES: 
30 4 TIMES: 
30 5 TIMES: 
30 6+ TIMES: 



Current account was 60 days delinquent. 
Current account was 90 days delinquent. 
Current account was 120 days delinquent 
Current account was 150 days delinquent 
Current account was 180 days delinquent 
Account was a repossession/now redeemed 
Current account was a collection 
accoun t . 

Account now available for use and is in 
good standing. Was a closed account. 
Current account foreclosure was started 
Paid account. Some payments made past 
the agreed due dates. 

Paid account/was past due 30 days. 

Paid account/was past due 30 days 2 or 
t i mes . 

Paid account/was past due 30 days 4 
t i mes . 

Paid account/was past due 30 days 5 
t i mes . 

Paid account/was past due 30 days 6 
times or more. 

Paid account/was delinquent 60 days. 
Paid account/was delinquent 90 days. 
Paid account/was delinquent 120 days. 
Paid account/was delinquent 150 days. 
Paid account/was delinquent 180 days. 
Paid account/was a collection account 
insurance claim or education claim. 

Paid account/was a repossession. 

Paid account/was a CHARGE-OFF . 

Paid account. A foreclosure was started 
Credit grantor paid by company who 
originally sold the merchandise. 

Debt included in or discharged through 
Bankruptcy Chapter 7 or 11. 

Account legally paid in full for less 
than the full balance. 

Debt included in or completed through 
Bankruptcy Chapter 3. 

Account not being paid as agreed. 
Account past due 30 days. 

Account past due 30 days 2 times. 
Account past due 30 days 3 times. 



Account past due 30 days 
Account past due 30 days 5 



t i mes . 
t i me 



Account past due 30 days 6 times or 
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30 WAS 60: 

DELINQ 60: 
DEL WAS 90: 

DELINQ 90: 
DEL WAS 120: 

DELINQ 120: 
DELINQ 150: 
DELINQ 180: 
SCNL NWLOC : 

CO NOW PAY: 
FQREPRGC : 

GOV CLAIM: 

CLOSE NP AA: 
INS CLAIM: 

COLL ACCT : 



FORECLOSURE: 

VOLUN REPO: 
REPO: 

CHARGE OFF: 
SCNL : 



BK 7 FILE: 



bk , DISC: 



BK 7 DISM: 



BK 11 FILE: 



Account was delinquent 60 days/now 30 
days - 

Account delinquent 60 days. 

Account was delinquent 90 days/now 60 
days . 

Account delinquent 90 days. 

Account was delinquent 120 days/now 30, 
60 or 90 days. 

Account delinquent 120 days. 

Account delinquent 150 days. 

Account delinquent ISO days. 

Credit grantor could not locate 
consumer /consumer now located. 

Now paying, was a charge-off. 

Foreclosure proceeding started. 

Claim filed with government for insured 
portion of balance on a loan. 

Credit line closed/not paying as agreed. 
Claim filed for payment of insured 
portion of balance. 

Account seriously past due/account 
assigned to attorney collection agency 
or credit grantor's internal collection 
department . 

Credit grantor sold collateral to 
settle defaulted mortgage. 

Voluntary repossession. 

Merchandise was taken back by credit 
grantor ; there may be a balance due. 
Unpaid balance reported as a loss by 
credit grantor. 

Credit grantor cannot locate consumer. 



ITEMS OF PUBLIC RECORD 

Voluntary or involuntary Petition in 
Bankruptcy. Chapter 7- 'Liquidation) 
filed. 

Voluntary or involuntary Petition in 
Bankruptcy. Chapter 7- ( L i qu i da t i on ) 
d i schar ged . 

Voluntary or involuntary Petition in 
Bankruptcy. Chapter 7- ( L i qu i da t i on ) 
dismissed . 

Voluntary or involuntary Petition in 
Bankruptcy. Chapter 1 1 - ( Reorgani za t i on ) 
filed. 
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BK 11 DISC: 



BK 11 DISM: 



BK 13 FILE: 

BK 13 DISM: 

CITY TX LN: 
CITY TX REL: 
CCNSEL SER: 
CO TAX LN: 

CO TAX REL: 
FED TAX LN: 
FED TX REL: 
JUDGMENT : 
JUDGMT SAT: 
JUDG VACAT: 
MECH LIEN: 
MECH RELE: 

MN MTG FIL: 



N'T RESPON: 



STAT TX LN: 
STAT TX REL: 
SUIT : 

SUIT DISMD: 
WAGE ASIGN: 
W/A RELEASD : 



Voluntary or involuntary Petition in 
Bankruptcy. Chapter 1 1 -( Reorgan i z at i on ) 
d i scharged . 

Voluntary or involuntary Petition in 
Bankruptcy Chapter 1 1 -( Reorgan i z at i on ) 
d i sm i ssed . 

Petition in Bankruptcy Chapter 13- 
(Adjustment of Debt) filed. 

Petition in Bankruptcy Chapter 13- 
(Adjustment of Debt) dismissed. 

City tax lien 
City tax Released 
Debt Counseling Service 
County Tax Lien 
County Tax Released 
Federal Tax Lien 
Federal Tax Released 
Judgment 

Judgment Satisfied 
Judgment Vacated or Reversed 
Mechanic’s Lien 
Mechanic’s Lien Released 

Manual Mortgage Report (if on written or 
teleprinter profile, contact your local 
TRW Information Services Office). 

Not Responsible Notice, e.q., husband or 
wife claims not responsible for debts 
incurred by the spouse. 

State Tax Lien 
State Tax Released 
Su i t 

Suit Dismissed or Discontinued 

Wage Assignment 

Wage Assignment Released 
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